- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 代码修改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105997)
-- 发布时间：2017/8/30 21:35:00
-- 代码修改
老师，这段代码如何修改，其中的A,B,C......已经定义了String，运行时增加很多行，我想实现的效果是这样的：
此主题相关图片如下：qq截图20170830213422.jpg
Dim ary1() As String = {A,B,C,D,V,F,G,H,I,J}
Dim ary2() As String = {K,L,M,N,O,P,Q,R,S,K}
For w As Integer = 1 To 10
For u As Integer = 1 To 10
Dim nr As Row = t.AddNew
nr("销售单位") = ary1(w-1)
nr("市场部") = ary2(u-1)
Next
Next
-- 发布时间：2017/8/30 21:41:00
--
Dim ary1() As String = "A,B,C,D,V,F,G,H,I,J".split(",")
Dim ary2() As String = "K,L,M,N,O,P,Q,R,S,K".split(",")
For w As Integer = 1 To 10
Dim nr As Row = Tables("表A").AddNew
nr("销售单位") = ary1(w-1)
nr("市场部") = ary2(w-1)
Next
[此贴子已经被作者于2017/8/30 21:54:27编辑过]
-- 发布时间：2017/8/30 21:46:00
--
老师，A,B,C....都是变量来着，前面已经定义为Dim A as string = e.form.controls("textbox1").value，运行时出现索引超出数组哦。
-- 发布时间：2017/8/30 21:53:00
--
w改为w-1,问题解决了。
-- 发布时间：2017/8/30 21:54:00
--
Dim ary1() As String = {A,B,C,D,V,F,G,H,I,J}
Dim ary2() As String = {K,L,M,N,O,P,Q,R,S,K}
For w As Integer = 0 To ary1.length-1
Dim nr As Row = t.AddNew
nr("销售单位") = ary1(w)
nr("市场部") = ary2(u)
Next