| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]编译错误 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=61972) |
| -- 作者：cherryjing -- 发布时间：2014/12/23 11:20:00 -- [求助]编译错误 代码如下： Dim blStockMaterials(1) As Boolean Dim strFileName(1) As String, str As String Dim strSheetName(1) As String Dim i As Integer blStockMaterials(0) = e.Form.Controls("chkElectric").checked blStockMaterials(1) = e.Form.Controls("chkTeleComm").checked strFileName(0) = e.Form.Controls("txtElectricDrawingsList").text strFileName(1) = e.Form.Controls("txtTeleCommDrawingsList").text strSheetName(0) = e.Form.Controls("lstElectricSheet").SelectedValue strSheetName(1) = e.Form.Controls("lstTelecommSheet").SelectedValue For i = LBound(strFileName) To UBound(strFileName) If blStockMaterials(i) Then If FileSys.FileExists(strFileName(i)) Then Dim Book As New XLS.Book(strFileName(i)) \'定义一个Excel工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(strSheetName(i)) \'引用工作表
...
end if end if next i 出现如下错误: 编译错误：局部变量"strFileName"在声明之前不能被引用
错误代码：If FileSys.FileExists(strFileName(i)) Then 可是这个变量我明明已经声明了呀，请版主指教 |
| -- 作者：有点甜 -- 发布时间：2014/12/23 11:22:00 -- 我剪切你的代码进去，没有报错。 |
| -- 作者：cherryjing -- 发布时间：2014/12/23 11:25:00 -- 那这是什么缘故呢？ |
| -- 作者：有点甜 -- 发布时间：2014/12/23 11:27:00 -- 没有报错，你在试试。 |