| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 如何窗口上按键和编辑文本的制约 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=145397) |
| -- 作者：lgz518 -- 发布时间：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
|
| -- 作者：有点蓝 -- 发布时间：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 = "")
|