access 水电 收费 管理系统
于 2022-09-05 发布
文件大小:185.93 kB
0 143
下载积分: 2
下载次数: 1
代码说明：
峰长号Private Sub cmd查询_Click() On Error GoTo Err_cmd查询_Click Dim strWhere As String "定义条件字符串 strWhere = "" "设定初始值－空字符串 "判断【人员ID】条件是否有输入的值 If Not IsNull(Me.人员ID) Then "有输入 strWhere = strWhere & "([人员ID] = "" & Me.人员ID & "") AND " End If
下载说明：请别用迅雷下载，失败请重下，重下不扣分！
发表评论
