知识小罗列

1.点击关闭的叉子，弹出退出对话框
Dim a as vbmsgboxresult 
a=msgbox("确定退出？",vbYesNo)
if a=vbno then 
cancel=false 
else 
cancel =true
End if

2.vb 怎样将数据库中的内容添加到combo控件的列表里

Dim mrc As ADODB.Recordset

mrc.open "select 字段名 * from 表名",cnn
do while not mrc.eof
combo1.additem mrc.fileds(0).value
mrc.movenext
loop

mrc.close

3.清空MSFlexGrid表中的记录

  MSFlexGrid1.RemoveItem MSFlexGrid1.Rows

4.判断Text是否输入的是日期格式

 If comboField(Index).Text = "登录日期" Or comboField(Index).Text = "退出日期" Then
        If IsDate(Text(Index).Text) = False Then     
            MsgBox "不是日期型数据,请重新输入", vbOKOnly
            keyascii = 0                                            '将text内容全选中状态
            Text(Index).SelStart = 0                    
            Text(Index).SelLength = Len(Text(Index).Text)
            Text(Index).SetFocus
            Exit Sub
        End If
 End If