- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42693)
-- 发布时间：2013/11/19 16:19:00
-- [求助]
With CurrentTable
Dim r As Integer
r = .Find("张三", .RowSel + 1, 0, False, False, True)
If r > - 1 Then \'如果找到符合条件的行
.Position = r \'则选择该行
End If
End With
选定张三这行以后怎么将数据复制保存到另外一个表
-- 发布时间：2013/11/19 16:20:00
--
dim r as row = tables("另外一个表").addnew
r("列1")=CurrentTable.current("列1")
类似这样.
-- 发布时间：2013/11/19 16:22:00
--
我刚才写的好像选的不是一整行数据
-- 发布时间：2013/11/19 16:25:00
--
无论多少行数据都是一样的原理.
Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("姓名=\'张三\'")
For Each dr As Datarow In drs
dim r as row = tables("另外一个表").addnew
drs = DataTables("订单").Select("姓名=\'张三\'")
For Each dr As Datarow In drs
dim r as row = tables("另外一个表").addnew
r("第一列")=dr("第一列")
r("第二列")=dr("第二列")
Next
Next
-- 发布时间：2013/11/19 16:34:00
--
r("第一列")=dr("第一列")
r("第二列")=dr("第二列")
我设置多少列就得写多少列是吧
-- 发布时间：2013/11/19 16:37:00
--
复制以后怎么控制到另外一张表的顺序
-- 发布时间：2013/11/19 16:41:00
--
随意利用 r.move http://www.foxtable.com/help/topics/1846.htm
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2013/11/19 16:55:00
--
以下是引用wangshuxin601在2013-11-19 16:34:00的发言：
r("第一列")=dr("第一列")
r("第二列")=dr("第二列")
我设置多少列就得写多少列是吧
呵呵，不想写这么多的话，可以从这里头吸收一点营养：
http://www.foxtable.com/help/topics/2292.htm
结构不同：
Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列
For i As Integer = 0 To nma.Length - 1
r(nmb(i)) = dr(nma(i))
Next
结构相同，留给你自己从那节帮助找答案。
帮助处处是宝。
-- 发布时间：2013/11/19 17:04:00
--
这个学习了，
-- 发布时间：2013/11/19 17:32:00
--
Dim drs As List(Of DataRow)
drs = DataTables("表A").Select("姓名=\'昝润娇\'")
If drs.DataRow=True Then
Dim dr As DataRow = DataTables("任免单").AddNew
For Each dc As DataCol In DataTables("任免单").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
End If
Next
帮忙改改吧