此主题相关图片如下：2.jpg
此主题相关图片如下：1.jpg
救助各位老师，能否帮助修改代码，第一列标题充填“SPH",从第二列标题开始填充”0，-25，-50，...“Dim t As Table = e.Form.Controls("TABLE1").Table
Dim c1 As Integer = val(e.Form.Controls("TextBox1").text)
Dim c2 As Integer = val(e.Form.Controls("TextBox2").text)
Output.Show(c2)
Dim dtb As New DataTableBuilder("绘制表格")'创建临时表
Do While c1 >= c2
dtb.AddDef(cstr(c1), Gettype(String), 10)
c1 = c1 - 25
Loop
t.DataSource = dtb.BuildDataSource()'最后用Build方法生成临时表
c1= val(e.Form.Controls("TextBox3").text)
c2 = val(e.Form.Controls("TextBox4").text)
Do While c1 >= c2
Dim r As Row = t.AddNew
r(0) = c1
c1 = c1 - 25
加好友 
发短信
Post By：2022/3/5 9:31:00 [显示全部帖子]
