- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]foxtable中的数据对应的填入EXCEL中 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98489)
-- 发布时间：2017/3/30 16:31:00
-- [求助]foxtable中的数据对应的填入EXCEL中
老师好，下面代码是从Foxtable10个数中随机抽取数据填入EXCEL中，如果要将Foxtable中的数据一一对应填入EXCEL中，应该怎么更改代码？（第一行的数据对应填入到excel中的第一行），谢谢！
Dim nums1 As new List(Of String)
Dim nums2 As new List(Of String)
Dim nums3 As new List(Of String)
For Each dr As DataRow In DataTables("电解电容检验记录录入").Select("电容量测试值 is not null and 材料代号 = \'" & Tables("电解电容").current("材料代号") & "\' ” )
nums1.Add(dr("电容量测试值"))
nums2.add(dr("损耗角正切测试值"))
nums3.add(dr("漏电流测试值"))
Next
For i As Integer = 1 To 30
If d1=0 Then Exit For
If i > d1 Then Exit For
sheet(62+i, 3).value = nums1(Rand.Next(10))
sheet(62+i, 11).value = nums2(Rand.Next(10))
sheet(62+i, 19).value = nums3(Rand.Next(10))
-- 发布时间：2017/3/30 17:23:00
--
从这一节开始学习：
http://www.foxtable.com/webhelp/scr/1144.htm
-- 发布时间：2017/3/30 17:28:00
--
参考
http://www.foxtable.com/webhelp/scr/1148.htm
不会做上传实例。
-- 发布时间：2017/3/31 9:54:00
--
老师好，窗口1中的按钮能够随机提取数据，如果要一一对应（不是随机提取，第一个数据对应是第一个数据，第二个数据对应是第二个数据，以此类推）的提取数据应该怎么更改，自己更改的代码老是提示问题，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目3.table |
-- 发布时间：2017/3/31 9:58:00
--
直接写，如
For i As Integer = 1 To 30
If d1=0 Then Exit For
If i > d1 Then Exit For
sheet(62+i, 3).value = nums1(i-1)
sheet(62+i, 11).value = nums2(i-1)
sheet(62+i, 19).value = nums3(i-1)
Next
-- 发布时间：2017/3/31 10:00:00
--
请做一个可以测试例子上来，excel模板带上了，说明最后要做什么效果。
-- 发布时间：2017/3/31 10:21:00
--
刚才自己所写的代码检查出错误了，已经解决了，谢谢老师了