一直改都没有达到 我想要的功能，就是 当两列是空值时，分别显示自己的下拉项，当第一列选择后，第二列显示对应的下拉项。当清空两列时，再显示回各自的下拉项，这时在第二列选择下拉项后，第一列又会显示对应的下拉项。
试了很多都不行，没学过编程，只能自己摸索，都不知道错在哪。
If e.Row("产品名称") Is Nothing AndAlso e.Row("配方名称") Is Nothing Then
Dim dt As DataTable = DataTables("下拉项目")
Dim dr As DataRow
For Each c As Col In CurrentTable.Cols
dr = dt.Find("[表] = '" & CurrentTable.DataTable.Name & "' And [列] = '" & c.Name & "'")
If dr IsNot Nothing Then
c.ComboList = dr("列的下拉项目")
End If
Next
End If
If e.IsFocusCell Then
If e.Col.Name = "配方名称" Then
Dim dr As DataRow
dr = DataTables("配方对应产品").Find("对应料品名称 = '" & e.Row("产品名称") & "'")
If dr IsNot Nothing
e.Col.ComboList = dr("配方名称汇总")
End If
End If
End If
If e.IsFocusCell Then
If e.Col.Name = "产品名称" Then
Dim dr As DataRow
dr = DataTables("配方对应产品").Find("配方名称汇总 = '" & e.Row("配方名称") & "'")
If dr IsNot Nothing
e.Col.ComboList = dr("对应料品名称")
End If
End If
End If
加好友 
发短信
Post By：2018/7/6 11:00:00 [显示全部帖子]
