判断真假

来源：百度知道 编辑：UC知道 时间：2024/06/13 18:28:59
Private Function complexname() As Boolean
Dim lRec As Recordset '
Dim lsql As String
Dim i As Integer

Screen.MousePointer = vbHourglass

lsql = ""
lsql = lsql & "SELECT "
lsql = lsql & "count(名前)"
lsql = lsql & " as"
lsql = lsql & " 名前"
lsql = lsql & " from"
lsql = lsql & " M_社员"
lsql = lsql & " where"
lsql = lsql & " ("
lsql = lsql & " 名前"
lsql = lsql & " ="
lsql = lsql & """"
lsql = lsql & List1
lsql = lsql & """"
lsql = lsql & ")"

Set lRec = DB_OpenRecordset(lsql)

Do While (Not lRec.EOF)
lRec.MoveNext
Loop

Scr

你这个问题的完整写法+判断应该这样写：（其中lsql的查询语句有问题）

Private Function complexname() As Boolean
On Error GoTo ErrorLoad
Dim lRec As Recordset '
Dim lsql As String
Dim i As Integer

Screen.MousePointer = vbHourglass

lsql = ""
lsql = lsql & "SELECT "
lsql = lsql & "count(名前)"
lsql = lsql & " as"
lsql = lsql & " 名前"
lsql = lsql & " from"
lsql = lsql & " M_社员"
lsql = lsql & " where"
lsql = lsql & " 名前"
lsql = lsql & " ="
lsql = lsql & "'"
lsql = lsql & List1
lsql = lsql & "'"

Set lRec = DB_OpenRecordset(lsql)

If lRec.RecordCount > 0 Then'判断是否有数据
Do While Not lRec.EOF()

'其它代码
'......

If Not lRec.EOF() Then lRec.MoveNext
Loop
End If

lRec.Close