If e.IsFocusCell Then
Dim dt As DataTable = DataTables("下拉项目")
If e.Col.Name = "配方名称" Then
Dim dr As DataRow
dr = DataTables("配方对应产品").Find("对应料品名称 = '" & e.Row("产品名称") & "'")
If dr IsNot Nothing
e.Col.ComboList = dr("配方名称汇总")
Else
dr = dt.Find("[表] = '" & e.Table.Name & "' And [列] = '" & e.Col.Name & "'")
If dr IsNot Nothing Then
e.Col.ComboList = dr("列的下拉项目")
End If
End If
ElseIf e.Col.Name = "产品名称" Then
Dim dr As DataRow
dr = DataTables("配方对应产品").Find("配方名称汇总 = '" & e.Row("配方名称") & "'")
If dr IsNot Nothing
e.Col.ComboList = dr("对应料品名称")
Else
dr = dt.Find("[表] = '" & e.Table.Name & "' And [列] = '" & e.Col.Name & "'")
If dr IsNot Nothing Then
e.Col.ComboList = dr("列的下拉项目")
End If
End If
End If
End If