以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码错误调试  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189781)
--  作者：段虎成
--  发布时间：2023/12/25 19:00:00
--  代码错误调试
老师好，请帮忙看一下这段代码调试哪里错了，感谢。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:代码调试.zip
--  作者：有点蓝
--  发布时间：2023/12/25 20:14:00
--  
If e.Selected Then \'如果选择了值
    Dim tr As row = Tables("生产排产导入窗口中的客户下拉窗口_table1").Current 
    If tr IsNot Nothing AndAlso Tables("客户齐套汇总表").Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tr("客户名称")
        Dim r As Row = Tables("客户齐套汇总表").Current
        r("产品名称") = tr("产品类型")
        r("合同编号") = tr("合同编号")
……
--  作者：段虎成
--  发布时间：2023/12/26 10:25:00
--  
老师，按照这段代码调试的时候，双击下拉客户录入时无反应，客户和客户关联的信息都无法填入到窗口
--  作者：有点蓝
--  发布时间：2023/12/26 10:32:00
--  
说明这2个表都没有数据

If e.Selected Then \'如果选择了值
    Dim tr As row = Tables("生产排产导入窗口中的客户下拉窗口_table1").Current 
msgbox(1) \'能不能弹出？
    If tr IsNot Nothing AndAlso Tables("客户齐套汇总表").Current IsNot Nothing Then
msgbox(2) \'能不能弹出？
        e.Form.DropDownBox.Value = tr("客户名称")