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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]控件RecordGrid1和副表控制的问题？

共有1520人关注过本帖树形打印复制链接主题：[求助]控件RecordGrid1和副表控制的问题？

新福星

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

加好友

发短信

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

[求助]控件RecordGrid1和副表控制的问题？ 发帖心情

Post By：2016/12/1 16:37:00 [只看该作者]

一个窗口有一个表控件B和表A副本捆绑。控件RecordGrid1和表A捆绑。

希望通过点击表控件B，控件RecordGrid1跟随变化。这个已经做到了。

希望编辑控件RecordGrid1里的记录时，再点击表控件B，控件RecordGrid1数据不跟随且提出告警。

现在在编辑状态时，点击表控件B时，RecordGrid1里的记录可以不跟随，但是表控件B显示的当前记录变化了!

如何让表控件B显示的当前记录不变化？谢谢

[此贴子已经被作者于2016/12/1 16:42:10编辑过]

有点蓝

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

加好友

发短信

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

Post By：2016/12/1 16:48:00 [只看该作者]

取消更改

DataTables("表A").DataRows(0).Reject()

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

新福星

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

加好友

发短信

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

Post By：2016/12/1 16:57:00 [只看该作者]

这条语句放到哪个事件？

有点蓝

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

加好友

发短信

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

Post By：2016/12/1 17:07:00 [只看该作者]

点击表控件B时，RecordGrid1里的记录可以不跟随 -- 是怎么做的，放在这个事件里。具体上例子说明

新福星

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

加好友

发短信

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

Post By：2016/12/1 17:15:00 [只看该作者]

'在表XXXX副本的Click事件

if 没有编辑 then

Dim r As DataRow=DataTables("XXXX").find("商家编码='" & e.Row("商家编码") & "'")

If r IsNot Nothing Then

Dim wz As Integer=Tables("XXXX").FindRow(r)

If wz>=0 Then

Tables("XXXX").Position=wz

End If

else

e.Cancel=true

end

有点蓝

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

加好友

发短信

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

Post By：2016/12/1 17:28:00 [只看该作者]

到这个事件判断：http://www.foxtable.com/webhelp/scr/0644.htm

If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
  if 编辑

r.DataRow.Reject()

ene if

End If
End If

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

主题：[求助]控件RecordGrid1和副表控制的问题？