lsk = DataTables("历史库").AddNew()
If CurrentTable.Name = "职称证登记表" Then
Tables("历史库").Rows(Tables("历史库").Rows.Count -1)("证书名称")=CurrentTable.Current("职称级别")
Else If CurrentTable.Name = "技工证登记表" Then
Tables("历史库").Rows(Tables("历史库").Rows.Count -1)("证书名称")=CurrentTable.Current("等级"&"工种")
Else If 这里你都没写条件
CurrentTable.Name = "其他证书" Then
Tables("历史库").Rows(Tables("历史库").Rows.Count -1)("证书名称")=CurrentTable.Current("证书名称")
Else
Tables("历史库").Rows(Tables("历史库").Rows.Count -1)("证书名称")= CurrentTable.Name
End If