以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  没有下拉值时如何禁止手工输入  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=137200)
--  作者：happyft
--  发布时间：2019/6/30 10:58:00
--  没有下拉值时如何禁止手工输入

Tables("订单").Cols("工序名称").AllowDirectType = False
Dim dt As DataTable

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