Visual_Basic程序设计项目教程李天真李宏伟VisualBasic程序设计项目教程(任务11）课件教学.pptVIP

《 Visual Basic程序设计项目教程》电子教案 返回章首 If chkItem(2).Value = vbChecked Then If Trim(sQSql ) = Then sQSql = bookauthor = Trim(txtItem(1) ) Else sQSql = sQSql and bookauthor = Trim(txtItem(1) ) End If End If If chkItem(3).Value = vbChecked Then If Trim(sQSql ) = Then sQSql = bookpub = Trim(txtItem(2) ) Else sQSql = sQSql and bookpub = Trim(txtItem(2) ) End If End If If Trim(sQSql) = Then MsgBox 请设置查询条件！, vbOKOnly + vbExclamation, 警告 Exit Su