主题：能否实现这样的快速录入效果？

有一个表“人员基本资料”，有姓名列和在职（逻辑列）和配属部门列

 查询，填充

 

http://www.foxtable.com/webhelp/scr/1533.htm

 

谢谢老师，如果我要加上如果表“人员基本资料”表中的“在职”列选中，则填充，否则，则不填充

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("人员基本资料").Select("[在职] = true")
    Dim dr2 As DataRow = DataTables("出勤相关").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next

谢谢老师，填充上数据了，

这一句

谢谢老师，解决了，

如果想，如果填充了姓名，就在填充姓名时，直接在本行的“日期”列，写入 今天的日期，这样如何写代码？

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As DataRow In DataTables("人员基本资料").Select("[在职] = true and 部门 = '" & user.Group & "'", "部门")
    Dim dr2 As DataRow = DataTables("出勤相关").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
    dr2("日期") = Date.today
Next

太棒了，一下子就搞定了，非常感谢