以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  数据填充  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=178881)

--  作者:longyanlin
--  发布时间:2022/7/26 8:19:00
--  数据填充
请问老师,我从“员工资料”表里面提取数据数据到“其它工资”表里面,可是填充后顺序变了,不是按原来表的排列顺序排列的,请问怎么才能做到让顺序不变,或是是依据“员工资料”里面的“工号”一列排序,这样就不会变化了,谢谢
Dim f As New Filler
f.SourceTable = DataTables("员工资料") \'指定数据来源
f.SourceCols = "姓名" \'指定数据来源列
f.DataTable = DataTables("其它工资") \'指定数据接收表
f.DataCols = "姓名" \'指定数据接收列
f.Filter = "工资类别 = \'计时\'"
f.Fill() \'填充数据

--  作者:有点蓝
--  发布时间:2022/7/26 8:24:00
--  
换种方式填充:http://www.foxtable.com/webhelp/topics/1533.htm

For Each dr1 As DataRow In DataTables("员工资料").Select("工资类别 = \'计时\'","工号")
    Dim dr2 As DataRow = DataTables("其它工资").AddNew()
    
dr2("姓名") = dr1("姓名")
Next

--  作者:longyanlin
--  发布时间:2022/7/26 8:38:00
--  
谢谢老师