[求助]副表如何跟随主表当前行？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]副表如何跟随主表当前行？

共有2145人关注过本帖树形打印复制链接主题：[求助]副表如何跟随主表当前行？

新福星

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

等级：八尾狐帖子：1964 积分：15610 威望：0 精华：0 注册：2011/7/16 20:59:00

[求助]副表如何跟随主表当前行？ 发帖心情

Post By：2018/3/19 9:51:00 [只看该作者]

一个窗口。控件RecordGrid1绑定A表；控件Table也绑定A表为副本（定义为bm2)。

希望在A表中克隆一条记录。在bm2副表中对应的记录也成为当前行。采用方法如下：

Dim bm2 As String= e.Form.Name & "_table2"

Dim s As Row=Tables("A表").Current

If s Is Nothing Then Return

Dim r As Row= Tables("A表").AddNew()

For Each m As Col In Tables("产品").cols

If m.name="产品编码" Then Continue For ‘直接克隆重复控制会告警

r(m.Name)=s(m.Name)

Dim ra As DataRow=DataTables("产品").find("产品编码 Is Null") '"[_Identify]='" & r("_Identify") & "'")

If ra IsNot Nothing Then

Dim wz As Integer=Tables(bm2).FindRow(ra)

If wz>=0 Then

Tables(bm2).Position=wz

End If

这种方法没有使bm2新增行为当前行，怎么能达到目的？谢谢

有点甜

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

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/19 10:10:00 [只看该作者]

Dim bm2 As String=e.Form.Name & "_table2"
Dim s As Row=Tables("A表").Current
If s Is Nothing Then Return

Dim r As Row= Tables("A表").AddNew()
For Each m As Col In Tables("产品").cols
If m.name="产品编码" Then Continue For '直接克隆重复控制会告警
r(m.Name)=s(m.Name)
Next

Dim wz As Integer=Tables(bm2).Findrow(r.DataRow) '或者 "_Identify = '" & r("_Identify") & "'"
If wz>=0 Then
Tables(bm2).Position=wz
End If

主题：[求助]副表如何跟随主表当前行？