Foxtable(狐表)用户栏目专家坐堂 → 代码错误调试


  共有2047人关注过本帖树形打印复制链接

主题:代码错误调试

帅哥哟,离线,有人找我吗?
段虎成
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:446 积分:3234 威望:0 精华:0 注册:2019/11/18 9:44:00
代码错误调试  发帖心情 Post By:2023/12/25 19:00:00 [只看该作者]

老师好,请帮忙看一下这段代码调试哪里错了,感谢。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码调试.zip


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("合同编号")
……

 回到顶部
帅哥哟,离线,有人找我吗?
段虎成
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:446 积分:3234 威望:0 精华:0 注册:2019/11/18 9:44:00
  发帖心情 Post By:2023/12/26 10:25:00 [只看该作者]

老师,按照这段代码调试的时候,双击下拉客户录入时无反应,客户和客户关联的信息都无法填入到窗口

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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("客户名称")

 回到顶部