| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 列名用变量代替 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119385) |
| -- 作者：蓝蚂蚁 -- 发布时间：2018/5/23 22:25:00 -- 列名用变量代替 下面代码能正确运行： Tables("显示公司配送资质小窗口_Table1").Filter ="标记=\'1\'" 标记用变量代替就不行了 Dim str1 As String=“标记” Tables("显示公司配送资质小窗口_Table1").Filter ="\'str1 \'=\'1\'"，请问老师红色字体应该如何写？谢谢
|
| -- 作者：有点甜 -- 发布时间：2018/5/23 22:43:00 -- Tables("显示公司配送资质小窗口_Table1").Filter = str1 & "=\'1\'" |
| -- 作者：蓝蚂蚁 -- 发布时间：2018/5/24 17:18:00 -- 上个问题已经解决，但我对变量的引用感到很困惑，比如下面这条代码能运行 Dim zz As DataRow =DataTables("配送公司资质").Find("标记= \'有\' And 分类目录编号=\'" & e.DataRow("医疗器械分类目录代码") & "\'") 但标记用变量就搞不懂了 Dim gs As String=e.NewValue Dim zz As DataRow =DataTables("配送公司资质").Find(""& gs &"= \'有\' And 分类目录编号=\'" & e.DataRow("医疗器械分类目录代码") & "\'") 麻烦老师指出这代码错在哪里？不胜感激！
|
| -- 作者：有点甜 -- 发布时间：2018/5/24 17:28:00 -- 你这样写代码没问题吧？
Dim zz As DataRow =DataTables("配送公司资质").Find( gs & "= \'有\' And 分类目录编号=\'" & e.DataRow("医疗器械分类目录代码") & "\'")
http://www.foxtable.com/webhelp/scr/0221.htm
|
| -- 作者：蓝蚂蚁 -- 发布时间：2018/5/24 17:40:00 -- 在该单元格填上数据时没有问题 就是把单元格中的数据删除时提示=缺少操作运算符之类的错误 |
| -- 作者：有点甜 -- 发布时间：2018/5/24 17:46:00 -- Dim gs As String=e.NewValue \'另外的处理 Else Dim zz As DataRow =DataTables("配送公司资质").Find(""& gs &"= \'有\' And 分类目录编号=\'" & e.DataRow("医疗器械分类目录代码") & "\'")
End If
|
| -- 作者：蓝蚂蚁 -- 发布时间：2018/5/24 17:53:00 -- ok了 谢谢啊 |