If e.IsFocusCell Then '如果是焦点单元格
If e.Col.Name = "商品名称" Then
e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("商品名称", "[供应商名称] = '" & e.Row("供应商名称") & "'")
ElseIf e.Col.Name = "商品规格" Then
e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("商品规格","[供应商名称] = '" & e.Row("供应商名称") & "' and [商品名称] = '" & e.Row("商品名称") & "'")
ElseIf e.Col.Name = "单位" Then
e.Col.Combolist = DataTables("时空入库汇总").GetComboListString("单位", "[供应商名称] = '" & e.Row("供应商名称") & "' and [商品名称] = '" & e.Row("商品名称") & "'")
End If
End If