以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  TextBox公共成员  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=140183)

--  作者:seal51
--  发布时间:2019/8/31 10:05:00
--  TextBox公共成员
If Forms("修改价格条款").Opened AndAlso Forms("修改价格条款").Controls("价格条款").Table.Current IsNot Nothing Then
    Tables("价格条款").Filter = "pricetk = \'" & Forms("修改价格条款").Controls("价格条款").Table.Current("pricetk") & "\'"
Else
    Tables("价格条款").Filter = ""
End If

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.8.29.1
错误所在事件:窗口,修改价格条款,AfterLoad
详细错误信息:
未找到类型“TextBox”的公共成员“Table”。


--  作者:seal51
--  发布时间:2019/8/31 10:08:00
--  
知道错误出在那里了
--  作者:seal51
--  发布时间:2019/8/31 10:58:00
--  
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.8.29.1
错误所在事件:
详细错误信息:
语法错误:“AN”运算符后缺少操作数。

--  作者:有点蓝
--  发布时间:2019/8/31 11:09:00
--  
写什么代码引起的?
--  作者:seal51
--  发布时间:2019/8/31 11:16:00
--  
If Forms("选择价格条款").Opened AndAlso Forms("选择价格条款").Controls("价格条款").Table.Current IsNot Nothing Then
    Tables("价格条款").Filter = "pricetk = \'" & Forms("选择价格条款").Controls("价格条款").Table.Current("pricetk") & "\'"
Else
    Tables("价格条款").Filter = ""
End If

选择价格条款窗口里的副本价格条款表的pricetk=价格条款表里的pricetk的时候出现这个错误, 选择其他,没有此错误

--  作者:有点蓝
--  发布时间:2019/8/31 11:25:00
--  
msgbox("pricetk = \'" & Forms("选择价格条款").Controls("价格条款").Table.Current("pricetk") & "\'")
显示什么内容?

--  作者:seal51
--  发布时间:2019/8/31 12:13:00
--  
\'pricetk = \'\' 附近有语法错误。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190831121428-515151.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/8/31 12:15:07编辑过]

--  作者:seal51
--  发布时间:2019/8/31 12:20:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190831121755-616161.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2019/8/31 14:01:00
--  
里面有单引号,需要特别处理一下

Tables("价格条款").Filter = "pricetk = \'" & Forms("选择价格条款").Controls("价格条款").Table.Current("pricetk").replace("\'","\'\'") & "\'"