[求助]条件存在数据库中，如何取出来 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]条件存在数据库中，如何取出来

共有2829人关注过本帖树形打印复制链接主题：[求助]条件存在数据库中，如何取出来

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

[求助]条件存在数据库中，如何取出来 发帖心情

Post By：2019/5/22 21:06:00 [显示全部帖子]

假如将某一个业务条件例如 cr("Type") = 1 orelse cr("V") > 1000 作为字符串存在表中.-----比如存在datatables("X").datarows(0)("XFil")

当要引用这个条件的时候，如何把它转换成为 if cr("Type") = 1 orelse cr("V") > 1000 then ?

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2019/5/22 21:45:00 [显示全部帖子]

在命令窗口执行以下代码：

Dim cr As Row = Tables("Mod").rows(0)

Dim r As Row = Tables("Branch").rows(2)

Dim xyz As String = r("BranchFil") ‘比如这个单元格里的条件是：cr("Type") = 1

xyz = "Return " & xyz

Functions.Add("YYY",xyz)

Functions.Complie()

If Functions.Execute("YYY") Then '

Output.Show("YES")

Else

Output.Show("NO")

End If

Functions.Remove("YYY")

执行出错：

编译错误:未声明名“cr”。

错误代码：dim x as string = cr("Type") = 3

[此贴子已经被作者于2019/5/22 22:41:52编辑过]

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2019/5/23 10:05:00 [显示全部帖子]

Cr(“type”) = 3,这是存在数据库的表中的条件列，还有一列是存结果的，例如4 Cr(“type”) =2,它的结果是5 Cr就是某个表的选中行，是个参数

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2019/5/23 10:17:00 [显示全部帖子]

我只是想把数据库表中存的某个格子里存的条件字符串如cr(type”)=1 orelse cr(“v”)> 200取出来，放到if 中去执行判段

chnfo

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

加好友

发短信

等级：九尾狐帖子：2240 积分：18457 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2019/5/23 10:21:00 [显示全部帖子]

也就是说，从数据库中取出字符串类型的数据，解析转化为if语句中的判断条件，用eval好像不行

[此贴子已经被作者于2019/5/23 10:42:28编辑过]

下一主题 >> << 上一主题

主题：[求助]条件存在数据库中，如何取出来