仔细想想,你说的问题其实不存在,没有必要复制员工表所有列内容到工资表,通常只需姓名或者工号列即可。
可以在员工表和工资表之间建立父子关联,这样你只需复制关联列(例如工号)到工资表,其它姓名、部门之类的,可以通过表达式来显示。
如果你想复制上月数据到本月,那是肯定可以的,用DataTable的Select方法获得上月所有的行,然后逐行复制即可。
大概就是:
Dim dt As DataTable = DataTables("工资表").
Dim drs As List(Of DataRow) = dt.Select("筛选上月的判断条件")
For Each dr1 As DataRow in drs
Dim dr1 As DataRow = dt.AddNew()
For each dc As DataCol in dt.DataCols
dr2(dc.name) = dr1(dc.name)
Next
dr1("年月") = Date.Today.Year & "-" & Date.Today.Month
Next
其实万变不离其宗,熟练了,代码比起易表的And And,要更简单一些。
[此贴子已经被作者于2009-2-2 10:25:27编辑过]