| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 表中某一列内容为空时，禁止使用按钮 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123269) |
| -- 作者：aza520 -- 发布时间：2018/8/10 21:41:00 -- 表中某一列内容为空时，禁止使用按钮 在“窗口1”中的“表A”，当“表A”中的出现有一行的“列A”、“列B”两列任一列为空时，则禁用“窗口1”中的“控件1”、“控件2”。请问老师该如何写代码，写在什么位置？ |
| -- 作者：有点蓝 -- 发布时间：2018/8/10 21:50:00 -- 参考：http://www.foxtable.com/webhelp/scr/2342.htm Dim t As DateTable = DataTables("表A") If t.Find("第一列 is null or 第二列 is null") Is Nothing ctl.ReadOnly = BooleanEnum.False \'允许编辑 Else ctl.ReadOnly = BooleanEnum.True \'禁止编辑 End If [此贴子已经被作者于2018/8/10 22:11:40编辑过]
|
| -- 作者：aza520 -- 发布时间：2018/8/10 22:05:00 -- 我在控件1的Enter事件设置，显示错误：类型DateTable的值无法转换为Table |
| -- 作者：有点蓝 -- 发布时间：2018/8/10 22:11:00 -- Dim t As DateTable = DataTables("表A") |
| -- 作者：aza520 -- 发布时间：2018/8/11 7:52:00 -- 以下代码显示：未定义类型“DateTable”的错误 Dim t As DateTable = DataTables("S征地记录") If t.Find("项目名称 is null or 协议书编号 is null") Is Nothing ctl.ReadOnly = BooleanEnum.False \'允许编辑 Else ctl.ReadOnly = BooleanEnum.True \'禁止编辑 messagebox.show(nm & "项目名称协,议书编号必须输入内容") End If |
| -- 作者：有点蓝 -- 发布时间：2018/8/11 9:16:00 -- Dim t As DataTable |