以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]窗口全局事件引用控件值到特定表进行验证的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118798)

--  作者：倪远歌1 --  发布时间：2018/5/11 11:14:00 --  [求助]窗口全局事件引用控件值到特定表进行验证的问题 目标是：如果控件文本框 “11code”的值在表“材料库”中“材料编码”列中可以找到，则控件 "11name","11length","11weight","11height" ,"11width"不可编辑 测试发现不成功。 错误提示：没有为字符串“[材料编码] = \'” 和 类型“TextBox” 定义运算符“&” 请问在窗口中引用该怎么写 代码如下： Dim ctl As WinForm.Control = e.Sender Select Case ctl.name      Case "11name","11length","11weight","11height" ,"11width"        Dim dr As DataRow = DataTables("材料库").Find( "[材料编码] = \'" & e.Form.Controls("11code") & " \' ")         If dr IsNot Nothing             ctl.ReadOnly = BooleanEnum.False              ctl.error = "自有材料禁止修改尺寸/重量!"         End If End Select

--  作者：有点甜 --  发布时间：2018/5/11 11:15:00 --   Dim dr As DataRow = DataTables("材料库").Find( "[材料编码] = \'" & e.Form.Controls("11code").Text & "\' ")