主题：新增第一条记录复制到另一张表

应该是你 【人工费主表】 DataRowAdded或datacolchanged 事件，有错误代码导致的吧？

试试改成

Dim fdr As DataRow = DataTables("人工费主表").find("关联编号 = '" & e.DataRow("关联编号") & "'")
If fdr Is Nothing Then
    systemready = False
    fdr = DataTables("人工费主表").AddNew
    fdr("项目名称") = e.DataRow("项目名称")
    fdr("工资月份") = e.DataRow("工资月份")
    fdr("关联编号") = e.DataRow("关联编号")
    fdr("账务日期") = e.DataRow("账务日期")
    fdr("档案编号") = e.DataRow("档案编号")
    DataTables("人工费主表").Save
    systemready = True
End If