Dim ztlbcd As IntegerDim Values() As String '将窗口查询信息账套转化为数组
Values = ztlb.value.split(",")
ztlbcd = values.Length
Dim ldlbcd As Integer
Dim Values1() As String '将窗口查询信息账套转化为数组
Values1 = ldlb.value.split(",")
ldlbcd = values1.Length
Dim tctj As String '设置填充条件
For i = 0 To ztlbcd
If tctj = "" Then
tctj = "账套 = '" & values(0) & "'"
Else tctj = tctj & " or " & "账套 = '" & .Values(i) & "'"
End If
Next
点击保存，提示：“i”不是“private”
错误代码：For i = 0 To ztlbcd
这段代码的意思是想生成一个表达式条件，组合查询。
另，我不清楚如何上传截图，很久没来这儿了！
我自己明白了！For 计数器变量 As 数据类型
没有定义类型。
真是手生了！
[此贴子已经被作者于2017/11/4 16:42:03编辑过]
加好友 
发短信
Post By：2017/11/4 16:39:00 [只看该作者]
