[求助]窗口关联表控制代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]窗口关联表控制代码

共有4123人关注过本帖树形打印复制链接主题：[求助]窗口关联表控制代码

有点蓝

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

加好友

发短信

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

Post By：2018/2/24 8:44:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/scr/2497.htm

http://www.foxtable.com/webhelp/scr/1353.htm

有点蓝

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

加好友

发短信

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

Post By：2018/2/26 21:13:00 [显示全部帖子]

具体那个功能哪一句代码不理解？

比如新增

Tables("订单主表").AddNew

Tables("订单明细表").AddNew

有点蓝

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

加好友

发短信

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

Post By：2018/2/26 23:23:00 [显示全部帖子]

新增

Tables("订单主表").save

Tables("订单明细表").save

Tables("订单主表").AddNew

Tables("订单明细表").AddNew(5)

有点蓝

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

加好友

发短信

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

Post By：2018/3/6 21:58:00 [显示全部帖子]

既然自己知道要针对整张单操作，那么就应该针对订单主表操作啊。抄完代码，第一时间看结果，第二时间学会分析一下代码，每一行都是做什么的，到帮助查查对应的用法加深理解。

比如上一单就这样改

With Tables("订单主表")

If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改

.Position = .Position - 1

End If

End With

其次可以把窗口表绑定到关联表，这样可以少不少的操作

有点蓝

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

加好友

发短信

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

Post By：2018/3/9 22:34:00 [显示全部帖子]

你想如何针对一张单中的二个表进行操作？说明需要什么效果

有点蓝

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

加好友

发短信

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

Post By：2018/3/9 23:17:00 [显示全部帖子]

首先14楼窗口表格改为绑定关联表

保存新增按钮：

tables(主表).save

tables(明细表).save

tables(主表).addnew

删除

dim r as row = tables(主表).current

if r isnot nothing then

datatables(明细表).deletefor("主表单号='" & r("主表单号") & "'")

r.delete

tables(主表).save

tables(明细表).save

end if

下一主题 >> << 上一主题

主题：[求助]窗口关联表控制代码