- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 筛选代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141624)
-- 发布时间：2019/10/7 14:01:00
-- 筛选代码
\'Tables("代码库").Filter = "[应用表] = \'企略落地系统 \'"
Dim Filter As String = "企略落地系统"
MessageBox.Show(Filter)
Tables("代码库").Filter = "[应用表] = Filter" 这段代码错在哪呢 不生效
-- 发布时间：2019/10/7 14:23:00
--
先看几遍：http://www.foxtable.com/webhelp/topics/1284.htm
Dim Filter As String = "企略落地系统"
Tables("代码库").Filter = "[应用表] = \'" & Filter & "\'"
-- 发布时间：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 & "\'")
这个用法不生效
-- 发布时间：2019/10/16 0:13:00
--
Dim wyid As String = "xmgl00002.htm" Dim wb As New weui Select Case e.Path Case wyid ‘注释：你这个地方是有错误的，wyid是定义的一个变量，不需要用双引号，而且你双引号还是2个嵌套的，真的看不懂！ Dim bm As String Dim gw As String Dim name As String Dim userid = Functions.Execute("验证函数l",e,"\'" & wyid & "\'") ‘你这个也是有错误的，dim后面是定义变量的，你没有定义啊！至少我没看到As，后面括号里面的e是什么呢？变量吗？没有定义，要是变量也要动态合成表达式！这样写是有错误的！ 这个用法不生效 —————————————————————————— 我也是刚无基础开始学习的！感觉你水平应该比我高，不对之处敬请探讨！ |
-- 发布时间：2019/10/16 8:41:00
--
表达式里的字符串才需要加单引号，其它地方代码不需要的。
-- 发布时间：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编辑过]
-- 发布时间：2019/11/8 9:24:00
--
httprequest没有 e.DataRow这种参数。应该使用sqlfind之类的到数据库库查询需要的数据