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

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之后，一行一行的加数据，一行一行的写入数据。

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("统计")