Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口全局事件引用控件值到特定表进行验证的问题


  共有1952人关注过本帖树形打印复制链接

主题:[求助]窗口全局事件引用控件值到特定表进行验证的问题

帅哥哟,离线,有人找我吗?
倪远歌1
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:51 积分:577 威望:0 精华:0 注册:2018/4/4 8:37:00
[求助]窗口全局事件引用控件值到特定表进行验证的问题  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/11 11:15:00 [只看该作者]

Dim dr As DataRow = DataTables("材料库").Find( "[材料编码] = '" & e.Form.Controls("11code").Text & "' ")

 回到顶部