共4 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：代码错误调试
1楼
段虎成 发表于：2023/12/25 19:00:00老师好，请帮忙看一下这段代码调试哪里错了，感谢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:代码调试.zip |
2楼
有点蓝 发表于：2023/12/25 20:14:00If 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楼
段虎成 发表于：2023/12/26 10:25:00老师，按照这段代码调试的时候，双击下拉客户录入时无反应，客户和客户关联的信息都无法填入到窗口
4楼
有点蓝 发表于：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("客户名称") |
共4 条记录, 每页显示 10 条, 页签:
[1]