VB的四个问题?
问题一、DATAGRID1为何最后一列隐藏后,再显示,但显示不出???
我编了在DATAGRID1中显示/隐藏列的程序。
用鼠标左键的事件:
Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
mHide.Tag = DataGrid1.Columns(ColIndex).DataField
PopupMenu mHidesubMenu ’显示快捷菜单
End Sub
选择隐藏菜单子项的事件:
Private Sub mHide_Click()
DataGrid1.Columns(mHide.Tag).Visible = False 'mHide.Tag为字段名
End Sub
选择多栏(取消)隐藏菜单子项的事件:
Private Sub mHideUnhide_Click()
With Form2.List1
.Clear
For i = 0 To DataGrid1.Columns.Count - 1
.AddItem DataGrid1.Columns(i).DataField
.Selected(.NewIndex) = DataGrid1.Columns(i).Visible
Next
End With
Form2.Show vbModal
End Sub
第二个表单:
确定按钮事件:
Private Sub Command1_Click()
Dim i As Integer
With Form1.DataGrid1
For i = 0 To .Columns.Count - 1
.Columns(i).Visible = Form2.List1.Selected(i)
Debug.Print .Columns(i).Visible
Next
End With
Unload Me
Form1.Refresh
End Sub
取消按钮事件:
Private Sub Command2_Click()
Unload Me
End Sub
请高手指教!!!
问题二、怎样用程序获取ADODC,ADO,DATAENVIRONMENT 中数据库的所有表名?
问题三、怎样删除用SAVESETTING命令存储在注册表中的内容?
问题四、关于日期时间的设置/转换问题?
A.从FileSystemObject对象的Files对象或Folder对象的datalastmodified
中,怎样单独获取日期,时间部分?
B.怎样设置获得或输入日期,时间的格式?
例:FOLDER对象的DATALSTMODIFIED日期:YY-M-D
能否显示或打印时为:YYYY年MM月DD日或YYYY/MM/DD、
FEB,DD YYYY等
C.怎样把日期/时间转换成字符,字符转换成日期/时间?