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

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

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

fntfgz

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

加好友

发短信

等级：一尾狐帖子：411 积分：4950 威望：0 精华：0 注册：2012/11/16 8:21:00

求个动态表达式 发帖心情

Post By：2018/12/27 11:40:00 [只看该作者]

我把两个两的字段分别放入两个数据中，如下

Dim s1() As String = {“course”,”batch”,“collegecode”}

Dim s2() As String = {“科类”,” 批次”,” 院校编号"}

因为数组中的字段名是不固定的，所以我想循环上面的两个数组，组成下面查询中的表达式，怎么也调试不好，还是请老师出手吧

dim ml as string

ml="course = '" & r("科类") & "' and batch = '" & r("批次") & "' and collegecode = '" & r("院校编号") & "'"

aa = tb.Select（ml）

[此贴子已经被作者于2018/12/27 11:48:57编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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)