- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- EXCEL导入 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=165283)
-- 发布时间：2021/5/12 15:56:00
-- EXCEL导入
老师受累帮我看一下，我的导入语句，选择EXCEL文件导入后，单据主表数据导入正确，明细表行数据行，但是却没有任何内容，是哪里有问题明细表数据没能增加进去、（主表和明细表在同一个选中的工作簿中的不同工作表中）
语句在附件中，直接粘在这里发表报错。、
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:语句.txt |
-- 发布时间：2021/5/12 16:04:00
--
Dim Sheet1 As XLS.Sheet = Book.Sheets("单据明细")
Tables("ysmxhz").StopRedraw()
Dim nms1() As String = {"项目","行次","金额"}
Dim nms2() As String = {"kmmc","HC","ysje"}
msgbox(Sheet1.Rows.Count ) ‘弹出什么值’
For n As Integer = 1 To Sheet1.Rows.Count -1
Dim r As Row = Tables("ysmxhz").AddNew()
For i As Integer = 0 To sheet1.Cols.Count -1
Dim idx As Integer = array.indexof(nms1, sheet1(0,i).Text)
msgbox(idx) ‘弹出什么值’
If idx >= 0 Then
r(nms2(idx)) = sheet1(n, i).Text
End If
Next
Next
Tables("ysmxhz").ResumeRedraw()
-- 发布时间：2021/5/12 16:12:00
--
老师，第一次弹出了一个18，后面就是再弹出0,再弹出1，然后再弹出2，再弹出-1，再0，按下面的顺序弹出，，0，1，2，-1，循环弹出，直到不弹出。
18
0
1
2
-1
0
1
2
-1
0
1
2
-1
0
1
2
-1
0
1
2
-1
0
1
2
... ...
-- 发布时间：2021/5/12 16:25:00
--
说明明细表有添加数据，到后台数据库看看，检查是不是界面没有加载数据
-- 发布时间：2021/5/12 16:31:00
--
老师数据库表后台也看了，比如说明细EXCEL表有10行，查看导入的明细表也有10行，只是内容不进去。
-- 发布时间：2021/5/12 16:35:00
--
For i As Integer = 0 To sheet1.Cols.Count -1
Dim idx As Integer = array.indexof(nms1, sheet1(0,i).Text)
msgbox(idx)
If idx >= 0 Then
msgbox(nms2(idx))
msgbox(sheet1(n, i).Text)
r(nms2(idx)) = sheet1(n, i).Text
msgbox(r(nms2(idx)))
End If
Next
-- 发布时间：2021/5/12 16:47:00
--
老师，代码粘进去后，在提示框中显示对应的值了和列，就是完成后点开还是只有对的空行数，行数正确着，就是没数据。
-- 发布时间：2021/5/12 16:56:00
--
调换一下代码顺序试试
DataTables("yszb").Save()
DataTables("ysmxhz").Save()
DataTables("yszb").Load()
另外Tables("yszb").Save()和DataTables("yszb").Save()效果是一样的，没有必要调用2次
-- 发布时间：2021/5/12 17:24:00
--
老师，换了顺序也不行，我这个表设计的是一个主表，两个明细，我前面再试着把另一个明细表的的导入语句也加上，
导入结果就是，主表完全对应正确，明细表1（例如EXCEL有10行）正确增加了10行，但没数据，明细表2（EXCEL表中有30行）正确增加了30行，也是没有数据。我明细表参考着明细表一的语句增加在后面的。
现在的同样情况就是增加的行数对了，EXCEL中数据没有过去。
现在的同样情况就是增加的行数对了，EXCEL中数据没有过去。
-- 发布时间：2021/5/12 17:29:00
--
请上传实例测试