Tables("订单").Cols("工序名称").AllowDirectType = FalseDim 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中有值即会出现下拉列表,禁止手工输入是生效的,但是如果没有值生成下拉时手工就可以输入值了
这种情况要如何禁止手工录入呢?
谢谢!