代码如下:提示代码错误,求指点。
Dim lsk As DataRow
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