Foxtable(狐表)用户栏目专家坐堂 → 如何窗口上按键和编辑文本的制约


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

主题:如何窗口上按键和编辑文本的制约

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


加好友 发短信
等级:五尾狐 帖子:1152 积分:7712 威望:0 精华:0 注册:2019/6/13 9:57:00
如何窗口上按键和编辑文本的制约  发帖心情 Post By:2020/1/18 13:46:00 [只看该作者]

如何窗口上按键和编辑文本的制约

"数量","单价","客户"都是编辑文本及组合框,如何实现
如果:"数量","单价","客户"三个中任何一个为空, '导入按键,为不可编辑,
否则,'导入按键,可编辑  。

Dim btn As DataRow = e.Button("导入按键") 
Select Case e.DataCol.Name
    Case "数量","单价","客户"
        If dr.IsNull("数量") OrElse dr.IsNull("单价")  OrElse dr.IsNull("客户")     Then '如果数量或单价,客户为空
            btn ("导入按键").Default = True                                                                                 '导入按键,为不可编辑
        Else
           btn ("导入按键") .Default  =False                                 '导入按键,可编辑        
        
        End If
End Select

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/18 14:51:00 [只看该作者]

到"数量","单价","客户"valuechanged事件写代码控制

dim t1 as string = e.form.controls("TextBox1").text
dim t2 as string = e.form.controls("TextBox2").text
dim t3 as string = e.form.controls("TextBox3").text

e.form.controls("导入按键").enabled = not ( t1 = "" orelse t2 = "" orelse t3 = "")

 回到顶部