qpdidn的博客Option ExplicitDim objConn As ADODB.ConnectionDim objRs As ADODB.RecordsetPrivate Sub Form_Load()On Error Resume NextSet objConn = New ADODB.ConnectionSet objRs = New ADODB.RecordsetobjConn.Connection...
郑某人的博客'空值表示出错 Public Function GetIniStr( ByVal AppName As String , ByVal In_Key As String ) As String On Error GoTo GetIniStrErr If VBA.Trim(In_Key) = "" Then...
奔跑的犀牛先生的博客If Controls("image" & a + 1).Picture() Is Nothing Then MsgBox ("这里是空的") If Controls("image" & a + 1).Picture() Is Nothing Then MsgBox ("这里是空的") ... If input1 = vb...