主题：循环组合

具体一点你的问题，逻辑是怎样的？或者用实例说明。

判断变量是不是0？如果是0，就update，不是0，就msgbox？

 

Dim ary1() As String = {"A", "B", "C"}
Dim ary2() As Integer = {1,1,0}
Dim str As String = ""
For i As Integer = 0 To ary1.length-1
    If ary2(i) = 0 Then
        msgbox("update" & "  " & ary1(i))
    Else
        str &= ary1(i) & ","
    End If
Next
msgbox(str.trim(","))

没看懂你想表达什么，请上传一个具体的实例，说明你要做的功能。

那你直接把你以前那些按钮的代码写在一起，就可以了的啊。

If Tables("项目测试数据看板").Current("C")=0 Then
    update c=1
End If
If Tables("项目测试数据看板").Current("D1")=0 Then
    update D1=1
End If
If Tables("项目测试数据看板").Current("T")=0 Then
    update T=1
End If