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