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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选代码

共有2602人关注过本帖树形打印复制链接主题：筛选代码

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

筛选代码

Post By：2019/10/7 14:01:00 [显示全部帖子]

'Tables("代码库").Filter = "[应用表] = '企略落地系统 '"

Dim Filter As String = "企略落地系统"

MessageBox.Show(Filter)

Tables("代码库").Filter = "[应用表] = Filter" 这段代码错在哪呢不生效

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

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

Dim wyid As String = "xmgl00002.htm"

Dim wb As New weui

Select Case e.Path

Case "'" & wyid & "'"

Dim bm As String

Dim gw As String

Dim name As String

Dim userid = Functions.Execute("验证函数l",e,"'" & wyid & "'")

这个用法不生效

yifan3429

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

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2019/11/7 21:48:00 [显示全部帖子]

此主题相关图片如下：企业微信截图_20191107214642.png

改成下面会报错

Dim wy As String = e.DataRow("网页")

---------------------------

错误

---------------------------

编译错误:“DataRow”不是“RequestEventArgs”的成员。

错误代码：Dim wy As String = e.DataRow("网页")

---------------------------

确定

---------------------------

Select Case e.Path

Case wy

Dim bm As String

Dim gw As String

Dim name As String

Dim userid = Functions.Execute("验证函数l",e,wy)

[此贴子已经被作者于2019/11/7 21:54:29编辑过]

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

主题：筛选代码