想实现 这样一个功能。
下拉框 有2项供选择 金属材料 设备
当选择金属材料的时候希望生成一个新的 下拉框
当选择设备的时候希望重新生成一个新的下拉框
Dim r As Row = Tables("材料出库明细表").Current
If e.Col.Name = "物资名称" And r("物资名称")="金属材料" Then
e.Col.Combolist = DataTables("金属基本资料").GetComboListString("金属基本资料", "[材料名称] ='" & e.Row("物资名称") & "'")
End If
If e.Col.Name = "物资名称" And r("物资名称")="设备" Then
e.Col.Combolist = DataTables("设备基本资料").GetComboListString("设备基本资料", "[设备名称] ='" & e.Row("物资名称") & "'")
End If