以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 没有下拉值时如何禁止手工输入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137200) |
-- 作者:happyft -- 发布时间:2019/6/30 10:58:00 -- 没有下拉值时如何禁止手工输入 Tables("订单").Cols("工序名称").AllowDirectType
=
False Dim cmd As New SQLCommand cmd.ConnectionName = Mydata cmd.CommandText = "SELECT 工序名称 From 产品工序明细 where 产品编码 = \'" & pc & "\' And 加工方式 = \'外协加工\'" dt = cmd.ExecuteReader() Tables("订单").Cols("工序名称").ComboList = dt.GetComboListString("工序名称") 用上述代码设置下拉列表时,如果dt中有值即会出现下拉列表,禁止手工输入是生效的,但是如果没有值生成下拉时手工就可以输入值了 这种情况要如何禁止手工录入呢? 谢谢! |
-- 作者:有点甜 -- 发布时间:2019/6/30 11:44:00 -- 编写startedit或者prepareEdit,判断一下
If e.combolist = "" Then e.cancel = true End If |