Dim s1() As String = {"course","batch","collegecode"} Dim s2() As String = {"科类"," 批次"," 院校编号"} Dim str As String = "1=1" Dim r = CurrentTable.Current For i As Integer = 0 To s1.length-1 str = str & " and " & s1(i) & " = '" & r(s2(i)) & "'" Next msgbox(str)
加好友 
发短信
Post By：2018/12/27 11:57:00 [只看该作者]
