元旦快乐!新年快乐!老师好!
又来麻烦您了
因为下拉窗口可以显示多列数据
借鉴自定义录入界面之三,我想在出库表的物料名称列中,用下拉窗口代替下拉列表
If e.IsFocusCell Then
If e.Col.Name = "物料名称" Then
If e.Row.IsNull("工程项目") AndAlso e.Row.IsNull("类别") Then
e.Col.ComboList = DataTables("即时库存").GetComboListString("物料名称")
ElseIf e.Row.IsNull("工程项目") AndAlso e.Row.IsNull("类别") = False Then
e.Col.Combolist = DataTables("即时库存").GetComboListString("物料名称", "[类别] = '" & e.Row("类别") & "' and [库存数量] >0")
ElseIf e.Row.IsNull("工程项目") = False AndAlso e.Row.IsNull("类别") Then
e.Col.Combolist = DataTables("项目材料").GetComboListString("物料名称", "工程项目 = '" & e.Row("工程项目") & "' And 仓库数量 > 配发数量")
Else
e.Col.Combolist = DataTables("项目材料").GetComboListString("物料名称", "工程项目 = '" & e.Row("工程项目") & "' And [类别] = '" & e.Row("类别") & "'And 仓库数量 > 配发数量")
End If
End If
End If
请问老师,要实现同样的功能,下拉窗口的代码应该怎样写?(窗口12是下拉窗口)
[此贴子已经被作者于2017/1/1 9:43:42编辑过]