- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]这个循环应该怎样处理 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72172)
-- 发布时间：2015/7/24 17:11:00
-- [求助]这个循环应该怎样处理
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:冲绒计算程序.foxdb |
我想设计一个等差数列，填充到表中，根据给出的数据确定行数列数，生成临时表，如5行6列 分别命名列标题，当行数，列数发生变化时，生成的表也行应变化，我做了一下达不到要求，请教老师，该如何做。谢谢！
-- 发布时间：2015/7/24 17:29:00
--
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("统计")
-- 发布时间：2015/7/25 7:33:00
--
写列标题的同时能否将等差数列的值一起写入呢？
-- 发布时间：2015/7/26 10:34:00
--
不知道你要赋值什么。
build之后，一行一行的加数据，一行一行的写入数据。
-- 发布时间：2015/7/30 10:11:00
--
一个等差数列，填充到表中，根据给出的数据确定，填充的重量、行数、列数，生成临时表，如重量 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 |
-- 发布时间：2015/7/31 0:37:00
--
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("统计")