以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]请教这个代码有什么问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109117)

--  作者：wcs --  发布时间：2017/11/4 16:39:00 --  [求助]请教这个代码有什么问题？ Dim ztlbcd As Integer Dim 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编辑过]