求个动态表达式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求个动态表达式

共有2308人关注过本帖树形打印复制链接主题：求个动态表达式

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/27 11:57:00 [显示全部帖子]

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)