PrepareEdit事件
If e.Col.Name = "规格牌号" Then If e.Row.isnull("产品名称") Then e.Table.Cols("规格牌号").Combolist = DataTables("产品资料表").GetComboListString("规格牌号"") Else e.Table.Cols("规格牌号").Combolist = DataTables("产品资料表").GetComboListString("规格牌号","产品名称= '" & e.Row("产品名称") & "'") End If End If