以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]用下拉窗口代替下拉列表  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=94758)

--  作者:bbgg945
--  发布时间:2017/1/1 9:39:00
--  [求助]用下拉窗口代替下拉列表
 

元旦快乐!新年快乐!老师好!

又来麻烦您了

 

因为下拉窗口可以显示多列数据

借鉴自定义录入界面之三,我想在出库表的物料名称列中,用下拉窗口代替下拉列表

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.zip

[此贴子已经被作者于2017/1/1 9:43:42编辑过]

--  作者:有点色
--  发布时间:2017/1/1 10:17:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:即时库存表.table


--  作者:bbgg945
--  发布时间:2017/1/1 10:48:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170101103031.png
图片点击可在新窗口打开查看
老师,提示 :

错误所在事件:DropDownOpened

详细错误信息:

从字符串“有线线路”到类型“Boolean”的转换无效。

输入字符串的格式不正确。


--  作者:bbgg945
--  发布时间:2017/1/1 14:03:00
--  

前面错误是因为少了一个.IsNull

现在提示语法错误:“[类别]”运算符后缺少操作数。

[此贴子已经被作者于2017/1/1 15:03:40编辑过]

--  作者:狐狸爸爸
--  发布时间:2017/1/2 19:46:00
--  
没有密码,打不开你得问题。
其实这种问题,自己用MessageBox显示一下合成的条件表达式,就知道原因了。