以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  求助：修改代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175454)

--  作者：PC8888 --  发布时间：2022/3/5 9:31:00 --  求助：修改代码 此主题相关图片如下：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 Loop  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:绘制二维表.rar

--  作者：PC8888 --  发布时间：2022/3/5 9:33:00 --   2.JPG是我想要的结果！麻烦各位老师了！

--  作者：有点蓝 --  发布时间：2022/3/5 9:35:00 --    下载信息  [文件大小：   下载次数： ] 点击浏览该文件:绘制二维表.zip

--  作者：PC8888 --  发布时间：2022/3/5 9:45:00 --   老师：文件版本过高，打不开!

--  作者：有点蓝 --  发布时间：2022/3/5 9:46:00 --   升级Foxtable到最新版

--  作者：PC8888 --  发布时间：2022/3/5 10:19:00 --   OK,谢谢！如何做到“充填时页面不闪烁？有办法吗？

--  作者：有点蓝 --  发布时间：2022/3/5 10:34:00 --   http://www.foxtable.com/webhelp/topics/0453.htm