代码错误，不知如何修改？那位知道怎样修改，帮一下好吗？

nikko420

代码错误， SL4tDffC.rar (34.91 KB, 下载次数: 9)

2004-5-27 20:33 上传

点击文件名下载附件
代码错误，不知如何修改？那位知道怎样修改，帮一下好吗？

cg1

你的代码写错误了。

Dim first As Boolean Dim STRSQL As String Select Case SELECT1 Case 1 STRSQL = "select * from employeeall " Me.SUBFORM.SourceObject = "基础资料子窗体" End Select If Not IsNull(文本5) Then STRSQL = STRSQL & "where 部门='" & 文本5 & "'" Else first = True End If If Not IsNull(文本7) Then If first Then STRSQL = STRSQL & "where 基本工资= '" & 文本7 & "'" Else STRSQL = STRSQL & "and 基本工资= '" & 文本7 & "'" End If End If Debug.Print STRSQL 'select * from employeeall where 基本工资= '5' Me.SUBFORM.Form.RecordSource = STRSQL

你的 JET SQL 代码错误， 基本工资的数据类型是文本么？请再次核对