以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [讨论]代码问题，提示 else if 应为表达式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67041)

--  作者：jwt --  发布时间：2015/4/18 8:18:00 --  [讨论]代码问题，提示 else if 应为表达式 代码如下：提示代码错误，求指点。 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

--  作者：y2287958 --  发布时间：2015/4/18 8:37:00 --   要保证“Tables("历史库").Rows.Count -1”的值不小于0

--  作者：Bin --  发布时间：2015/4/18 8:39:00 --   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

--  作者：jwt --  发布时间：2015/4/18 9:53:00 --  谢谢~ 原来这这么回事啊