- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么样用fill 只填充被选中的行？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20838)
-- 发布时间：2012/6/21 3:34:00
-- 怎么样用fill 只填充被选中的行？
怎么样用fill 只填充被选中的行？
此主题相关图片如下：捕获.png
如图我在文本框中输入数据 在左边的表中找到 相应的数据后， 想把被选中的数据填充到右边的表格里。
我是用下面的代码做的。出现的问题就是 左边表的所有数据都填充到右边的表中了。
Dim f As New Filler
f.SourceTable = DataTables("用户") \'指定数据来源
f.SourceCols = "name,name2,phone,phone1,phone2,address,city,Province" \'指定数据来源列
f.DataTable = DataTables("发货地址") \'指定数据接收表
f.DataCols = "name,name2,phone,phone1,phone2,address,city,Province" \'指定数据接收列
f.Fill() \'填充数据
请指点一下了。。。。
-- 发布时间：2012/6/21 8:30:00
--
看看：
http://www.foxtable.com/help/topics/1533.htm
http://www.foxtable.com/help/topics/1597.htm
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
With Tables("来源表")
If .TopPosition > -1 Then \'如果选定区域包括数据行
For i As Integer = .TopPosition To .BottomPosition
Dim r As Row = .Rows(i)
Dim dr As DataRow = DataTables("接收表").AddNew()
For n As Integer = 0 To cols1.Length - 1
dr(Cols2(n)) = r(Cols1(n))
Next
Next
End If
End With
-- 发布时间：2012/6/23 4:18:00
--
感谢！！！