主题：[求助]能否实现双击打开下拉窗口以及条形码的疑问?

此主题相关图片如下：qq.png

请问老师:

在窗口副表中可以实现双击打开下拉窗口吗?
调拨单的数据可以生成条形码吗?能否实现扫描条形码即自动录入数据?这样的信息容量应该用哪种条形码呢?

If e.Table.Name = "窗口6_出库" Then
   e.Cancel = True '禁止进入编辑状态
   Forms("窗口12").Open()
End If

在窗口6_出库表的doubleclick事件中这段代码加了不起作用啊!

谢谢老师!实现了双击打开下拉窗口

但是以前的上锁禁止输入功能失效了

 

此主题相关图片如下：qq图片20170103164525.png

老师!加了e.Cancel = true之后,

只能禁止修改数据,但是可以删除数据和录入数据

e.cancel = true写在datacolchanging事件中后,对窗口表数据的所有操作都乱套了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:实例.zip

e.cancel = True
Dim c As Col = e.Table.Cols("物料名称")
e.Table.Select(e.Row.Index, c.Index)
e.Table.StartEditing
c.OpenDropDown
这段代码已写入窗口6_出库表的doubleclick事件中了．

麻烦老师看下 

没有办法了吗？感觉模式窗口还是没有这种方式方便啊，除了双击打开窗口功能．

双击OK了!谢谢老师们!谢谢有点蓝!谢谢有点色!

老师!我对下拉窗口进行的列设置

Dim tb As Table = Tables("窗口12_Table1")
    If ～～～　Then
        tb.DataSource  = DataTables("即时库存")
        tb.filter = "物料名称 = '" & r("物料名称") & "'"
tb.SetColVisibleWidth("上锁|30|类别|66|物料名称|250|单位|40|库存数量|66|库存|66|可用|40|待修|40")
    ElseIf ～～～　Then
        tb.DataSource  = DataTables("即时库存")
        tb.filter = "[类别] = '" & r("类别") & "' and [库存数量] >0"
tb.SetColVisibleWidth("上锁|30|类别|66|物料名称|250|单位|40|库存数量|66|库存|66|可用|40|待修|40")
    ElseIf  ～～～ 　Then
        tb.DataSource  = DataTables("项目材料")
        tb.filter = "工程项目 = '" & r("工程项目") & "' And 剩余 >0"
tb.SetColVisibleWidth("类别|66|物料名称|250|单位|40|配发数量|66|已发数量|66|剩余|66|仓库数量|66|缺货|66")
　　ElseIf

通过输入字符打开下拉窗口时,列的设置无效

请问这样的状态下，列设置代码应该怎样写？

 

我在CurrentChanged中设置列就好了