For Each s As String In ns If s<> "姓名" And s<>"单据编号" And s<>"员工编号" Then With Tables("表D") Dim r As Integer r = .FindRow(" [" & s & "] > 0" ,0 ,True) '从第一行开始查找 If r >= 0 Then '如果找到的话 MessageBox.Show(.position)'定位到找到的行. Else End If End With End If Next 表D是临时表,字段不确定。请问一下,红色代码有语法错误吗? 如果要实现 r = .FindRow(" [" & ns(0) & "] > 0" and [" & ns(1) & "] and [" & ns(3) & "]...and [" & ns(ns.count-1) & "]) 这样查询符合条件的行,代码要怎么修改啊?
|