以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]副表 插入行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48713)

--  作者:zyys2813
--  发布时间:2014/4/3 15:26:00
--  [求助]副表 插入行
请问副表复选框的某一行被选中,如何通过按钮代码在正表的这一行下插入行?

Dim r As Row = Tables("出库副表").GetCheckedRows(0)  ‘已设置只能勾选一行
Tables("出库").Insertnew()
谢谢


--  作者:有点甜
--  发布时间:2014/4/3 15:30:00
--  

 参考

 

http://www.foxtable.com/help/topics/0432.htm

 


--  作者:Bin
--  发布时间:2014/4/3 15:31:00
--  
Dim r As Row = Tables("出库副表").GetCheckedRows(0)  ‘已设置只能勾选一行
Dim wz As Integer = Tables("订单").FindRow(r.datarow)
Tables("出库").Position=wz
Tables("出库").Insertnew()

--  作者:zyys2813
--  发布时间:2014/4/3 16:20:00
--  
感谢两位老师,只是 wz 要加1,否则会在原有行的上方而不是下方插入行。
--  作者:有点甜
--  发布时间:2014/4/3 16:30:00
--  
以下是引用zyys2813在2014-4-3 16:20:00的发言:
感谢两位老师,只是 wz 要加1,否则会在原有行的上方而不是下方插入行。

 

其实没有必要这样插入,主表表自动按照 出库编号 排序就是你想要的效果了。