- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 将一个表的一行或多行的值点击添加到另一张表中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=41044)
-- 发布时间：2013/10/9 22:48:00
-- 将一个表的一行或多行的值点击添加到另一张表中
如题，好像在论坛上见过，但找不见了，谢谢！
-- 发布时间：2013/10/9 22:57:00
--
参考帮助
-- 发布时间：2013/10/9 23:13:00
--
能否通过双击选中行行将该行添加到另一各表中？
-- 发布时间：2013/10/9 23:27:00
--
明显，可以，先自己做一下，参考2楼。注意doubleclick事件可用的条件。
-- 发布时间：2013/10/17 12:48:00
--
相应用鼠标在“发货计划表”选定区域，点击按钮将选定行复制到“计划表”，按钮click的代码如下，但得到的结果是全部复制，而非选定行，问题处在哪？
With Tables("发货计划表")
For i As Integer = .TopPosition To .BottomPosition
.Rows(i).Locked = True
Next
Dim Vals As List(of String())
Vals = DataTables("发货计划表").GetValues("StokvisPN|发货日期|计划数量")
For i As Integer = 0 To Vals.Count - 1
Dim dr As DataRow = DataTables("计划表").AddNew()
dr("StokvisPN") = Vals(i)(0)
dr("生产日期") = Vals(i)(1)
dr("计划数量") = Vals(i)(2)
Next
End With
-- 发布时间：2013/10/17 12:58:00
--
呵呵，应该这样：
With Tables("发货计划表")
For i As Integer = .TopPosition To .BottomPosition
Dim r As Row = .Rows(i)
r.Locked = True
Dim dr As DataRow = DataTables("计划表").AddNew()
dr("StokvisPN") = r("StokvisPN")
dr("生产日期") = r("发货日期")
dr("计划数量") = r("计划数量")
Next
End With
-- 发布时间：2013/10/17 15:45:00
--
谢谢啦!