以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助一段小代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93570)
--  作者：misamisali
--  发布时间：2016/12/1 16:15:00
--  求助一段小代码
现在有两个表“员工信息表”和“计时工资库”，如果我在将员工信息导入到“计时工资库”里，我想设置只导入
计时员工，要怎么修改代码。
《员工信息表》里有一列“岗位类别”，区分“计时”、“计件的”

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
--  作者：有点蓝
--  发布时间：2016/12/1 16:25:00
--  
For Each I As DataRow In DataTables("员工信息表").Select("岗位类别=\'计时\'")
--  作者：misamisali
--  发布时间：2016/12/1 16:36:00
--  
这个代码撤销怎么编写呢？
--  作者：有点蓝
--  发布时间：2016/12/1 16:45:00
--  
什么撤销？插入的内容？