- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 下拉菜单有选择后，窗口才能编辑 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88292)
-- 发布时间：2016/7/31 1:37:00
-- 下拉菜单有选择后，窗口才能编辑
默认打开窗口，里面的table控件不能编辑。要求下拉窗口选择厂家后，才能编辑。
开始想在ValueChanged加代码，但这样每次改变都会触发代码。
此主题相关图片如下：捕获3.jpg
-- 发布时间：2016/7/31 9:23:00
--
写在 TextChanged 或 ValueChanged 就行啊。
-- 发布时间：2016/7/31 12:27:00
--
在ValueChanged 写下面的代码，出现一个小状况，复制的时候，表格还能自动增加行。有没办法完全锁死。
Dim gys As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If gys.Value IsNot Nothing Then
Tables("材料录入_Table1").AllowEdit = True
End If
此主题相关图片如下：000.gif
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:cai4.table |
-- 发布时间：2016/7/31 15:56:00
--
beforeAddDataRow事件
If e.DataTable.DataRows.count > 0 Then
If Forms("材料录入").Opened AndAlso Tables("材料录入_Table1").AllowEdit = False Then
e.Cancel = True
End If
End If