一个自定义录入界面弄了2天还弄搞不出来真要疯了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个自定义录入界面弄了2天还弄搞不出来真要疯了

共有3807人关注过本帖树形打印复制链接主题：一个自定义录入界面弄了2天还弄搞不出来真要疯了

有点蓝

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/9 15:19:00 [只看该作者]

订单录入窗口，绑定的是关联表，那么下拉窗口应该给关联表赋值呀

If e.Selected Then '如果选择了值

Dim tbl As Table = Tables("自定义录入界面_Table1")

If tbl.Current IsNot Nothing Then

e.Form.DropDownBox.Value = tbl.Current("成品ERP编号")

Tables("订单主表.订单明细表").Current("成品名称") = tbl.Current("成品名称")

Tables("订单主表.订单明细表").Current("成品规格") = tbl.Current("成品规格")

Tables("订单主表.订单明细表").Current("单位1") = tbl.Current("单位1")

If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的

e.Form.DropTable.FinishEditing()

Else '如果是通过窗口下拉的

e.Form.DropDownBox.WriteValue()

End If

有点蓝

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/9 15:44:00 [只看该作者]

没看懂，截图说明一下。按什么步骤测试？

有点蓝

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/9/9 16:05:00 [只看该作者]

图片和上传文件的方法一样。

把审核checkbox绑定到表格的审核列

总数 50 上一页 1 2 3 4 5 下一页

主题：一个自定义录入界面弄了2天还弄搞不出来真要疯了