Tables("材料出库明细表").Cols("物资名称").ComboList = "金属材料|设备"
Dim r As Row = e.Row
If e.Col.Name="物资名称"
Select Case r("物资名称")
Case "金属材料"
e.Col.Combolist= DataTables("金属基本资料").GetComboListString("材料名称")
Case "设备"
e.Col.Combolist=DataTables("设备基本资料").GetComboListString("设备名称")
End Select
End If
'根据设备名称自动生成规格和材质下拉框'
If e.Col.Name = "规格型号" Then
e.Col.Combolist = DataTables("金属基本资料").GetComboListString("规格", "[材料名称] ='" & e.Row("物资名称") & "'")
End If
If e.Col.Name = "材质" Then
e.Col.Combolist = DataTables("金属基本资料").GetComboListString("材质", "[材料名称] ='" & e.Row("物资名称") & "' And [规格] ='" & e.Row("规格型号") & "'")
End If
'根据设备名称自动生成规格和材质下拉框'
效果要求：物资名称列 选择 金属材料 在物资名称列中 生成一个新的 金属基本材料的 下拉框
物资名称列 选择 设备 在物资名称列中 生成一个新的 物资设备的 下拉框
[此贴子已经被作者于2013-3-28 13:59:39编辑过]
加好友 
发短信
Post By：2013/3/28 11:24:00 [显示全部帖子]
