在一个项目中，每一个月都有一份工人工时表（每个月的工人可能不尽相同），在汇总表中，我想把诸如十二个月中的工人名字填到汇总表（不重复），编写下面的代码，执行后退出Foxtable,请助

Select Case e.DataCol.name
  Case "Xingming"
    For Each skdt As DataTable In DataTables
           Dim dr As DataRow = skdt.Find("Xingming <> \'" & e.DataRow("Xingming") & "\'")
        If dr IsNot Nothing Then
          e.DataRow("Xingming") = dr("Xingming")
             End If
     Next
End Select