Dim
f
As
New
Filler
Dim
n
As
Integer = DataTables("数据").DataRows.Count
'记住原来的总行数
f.SourceTable = DataTables("jbxx") '指定数据来源
f.SourceCols = "人员编号"
'指定数据来源列
f.DataTable = DataTables("数据") '指定数据接收表
f.DataCols = "人员编号"
'指定数据接收列
f.ExcludeExistValue = True
'排除已经存在的内容
f.Fill() '填充数据
for
r
As
Integer = n
to
DataTables("数据").Datarows.Count - 1
DataTables("数据").DataRows(r)("状态") = "正常"
DataTables("数据").DataRows(r)("工资代码") = "18"
Next
[此贴子已经被作者于2008-10-6 15:55:22编辑过]