以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求个动态表达式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129365)
--  作者：fntfgz
--  发布时间：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编辑过]
--  作者：有点甜
--  发布时间：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)
--  作者：fntfgz
--  发布时间：2018/12/27 22:12:00
--  
 老师，上面的表达式我放在select 中，没问题，挺正常的，
但是放在if中，如下，str是一个字符串，并没有返回比较的结果，请问老师怎么解决
if str then
end if
--  作者：有点甜
--  发布时间：2018/12/27 22:40:00
--  

合成str是条件表达式，你还需要去查表啊

 

http://www.foxtable.com/webhelp/scr/0396.htm

 
--  作者：fntfgz
--  发布时间：2019/1/2 20:32:00
--  

老师，dr("院校名称")不包括“国家专项”我写了两种都不对，请老师指点

 

1、If Not (dr("院校名称") Like "%国家专项%") Then

 

这么写不起作用

 

2、If Not (dr("院校名称") Like ‘%国家专项%\') Then

 

单引号，但在这里单引号就变成注释了

[此贴子已经被作者于2019/1/2 20:33:04编辑过]
--  作者：有点甜
--  发布时间：2019/1/2 20:35:00
--  

 

If dr("院校名称") Like "*国家专项*" = False Then

 

或者

 

If dr("院校名称").contains("国家专项") = False Then