主题：[求助]这个循环应该怎样处理

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:冲绒计算程序.foxdb

我想设计一个等差数列，填充到表中，根据给出的数据确定行数列数，生成临时表，如5行6列 分别命名列标题，当行数，列数发生变化时，生成的表也行应变化，我做了一下达不到要求，请教老师，该如何做。谢谢！

Dim kg As Double = e.Form.Controls("kg").Value
Dim ds As Double = e.Form.Controls("ds").Value
Dim gs As Double = e.Form.Controls("gs").Value

Dim dtb As New DataTableBuilder("统计")
For x As Integer =1 To ds
    Dim mm As String = "第" & x & "道"
    dtb.AddDef(mm, Gettype(Double))
Next
dtb.Build()

DataTables("统计").AddNew(gs)

e.Form.Controls("Table1").Table.DataSource = DataTables("统计")

写列标题的同时能否将等差数列的值一起写入呢？

 不知道你要赋值什么。

 

 build之后，一行一行的加数据，一行一行的写入数据。

 

 

一个等差数列，填充到表中，根据给出的数据确定，填充的重量、行数、列数，生成临时表，如重量 30kg 5行 6列 分别命名列标题，当行数，列数发生变化时，生成的表也相应变化，等差数列，最后一个格为0，平均值=重量/行数*列数。

29	24	19	14	9	4
28	23	18	13	8	3
27	22	17	12	7	2
26	21	16	11	6	1
25	20	15	10	5	0

Dim kg As Double = e.Form.Controls("kg").Value
Dim ds As Double = e.Form.Controls("ds").Value
Dim gs As Double = e.Form.Controls("gs").Value

Dim dtb As New DataTableBuilder("统计")
For x As Integer =1 To ds
    Dim mm As String = "第" & x & "道"
    dtb.AddDef(mm, Gettype(Double))
Next
dtb.Build()

DataTables("统计").AddNew(gs)
Dim avg As Integer = kg / (ds*gs)
For i As Integer = 0 To ds -1
    For j As Integer = 1 To gs
        Tables("统计")(j-1, i) = kg - ((gs*i+j)*avg)
    Next
Next

e.Form.Controls("Table1").Table.DataSource = DataTables("统计")