If e.Col.Name = "机台" Then
e.Col.Combolist = DataTables("生产").GetComboListString("机台","[工序] = '" & e.Row("工序") & "'")
If e.Col.ComboList = ""
e.Col.Combolist = DataTables("下拉列表").GetComboListString("机台")
ElseIf e.Col.ComboList.Split("|").length < 3 Then
e.Col.Combolist &= "|" & DataTables("下拉列表").GetComboListString("机台")
End If
End If
[此贴子已经被作者于2016/5/20 11:10:49编辑过]