[讨论]代码问题，提示 else if 应为表达式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码如下：提示代码错误，求指点。

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

主题：[讨论]代码问题，提示 else if 应为表达式