现在有两个表“员工信息表”和“计时工资库”，如果我在将员工信息导入到“计时工资库”里，我想设置只导入计时员工，要怎么修改代码。
《员工信息表》里有一列“岗位类别”，区分“计时”、“计件的”
If DataTables("员工信息表").DataRows.Count<1
MessageBox.Show("请先在 <员工信息表> 中添加本期计时工资发放人员的姓名,且身份证号不能重复!","提示")
'MainTable = Tables("员工信息表")
Else
If Tables("计时工资库").RowS.Count<1
For Each I As DataRow In DataTables("员工信息表").dataRowS
Dim DR As Row = Tables("计时工资库").AddNew
DR("姓名") = I("姓名")
dr("身份证号码") = i("身份证号码")
dr("部门") = i("部门")
dr("职务") = i("职务")
dr("司龄") = i("司龄")
DR("年份") = Vars("yy")
dr("月份") = vars("mm")
Next
End If
End If
加好友 
发短信
Post By：2016/12/1 16:15:00 [只看该作者]
