1.数据库中null字段的处理1）如果要处理成字符型则通过 &"" 即可2）如果要处理成数值型则通过 CCur(IIF(isNull(字段值),0或其它默认值,字段值))2.用代码展开combobox,而不用鼠标点击才展开 方法1：Private Sub Command1_Click() Combo1.SetFocus SendKeys "{f4}" '如果再次发送f4的话，则收起 '也可以发送alt-down 'SendKeys "%{down}" '发送alt-up则为收起，即 'SendKeys "%{up}" End Sub方法2：使用API来实现. 'Declare in Module Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Public Const CB_SHOWDROPDOWN = &H14F 'Send message SendMessage Combo1.hwnd, CB_SHOWDROPDOWN, True, 03.选择Combo值但不激活单击事件'选择Combo值但不激活单击事件函数:'参数：lst对应的combo的值 NewIndex选中的索引Public Function SetCombo(ByVal lst As Control, ByVal NewIndex As Long) As LongOn Error GoTo Errc Dim SetListIndex As Long If TypeOf lst Is ListBox Then Call SendMessage(lst.hwnd, _ LB_SETCURSEL, NewIndex, 0&) SetListIndex = SendMessage(lst.hwnd, _ LB_GETCURSEL, NewIndex, 0&) ElseIf TypeOf lst Is ComboBox Then Call SendMessage(lst.hwnd, _ CB_SETCURSEL, NewIndex, 0&) SetListIndex = SendMessage(lst.hwnd, _ CB_GETCURSEL, NewIndex, 0&) End IfExit FunctionErrc: MsgBox "SetCombo():" & Error(Err.Number), vbOKOnly + vbInformation, MSGTITLEEnd Function4.
转载于:https://www.cnblogs.com/feima-lxl/archive/2009/03/10/1407568.html
相关资源：DirectX修复工具V4.0增强版