主题：没有下拉值时如何禁止手工输入

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中有值即会出现下拉列表,禁止手工输入是生效的,但是如果没有值生成下拉时手工就可以输入值了

这种情况要如何禁止手工录入呢?

谢谢!