产品表PrepareEdit事件
If e.IsFocusCell Then
If e.Col.Name Like "*_部件名称" Then
If e.Row.IsNull("产品类型") Then
e.Col.Combolist = Nothing
Else
e.Col.Combolist = DataTables("字典").GetComboListString(e.Row("产品类型") & "_部件名称", e.Row("产品类型") & "_部件名称 is not null")
End If
ElseIf e.Col.Name Like "*_辅件名称" Then
If e.Row.IsNull("产品类型") Then
e.Col.Combolist = Nothing
Else
e.Col.Combolist = DataTables("字典").GetComboListString(e.Row("产品类型") & "_辅件名称", e.Row("产品类型") & "_辅件名称 is not null")
End If
End If
End If
加好友 
发短信
Post By：2020/3/6 20:11:00 [显示全部帖子]
