- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]表的转换代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175658)
-- 发布时间：2022/3/14 14:55:00
-- [求助]表的转换代码
请教各位老师，本人想学习Foxtable软件，想以实例为切入点，烦请教：此表为动态的二维横表，需要达到的目的是：1、转化成竖表并保存到表B，表B有三列：SPH/CYL/数量; 2、另外横表底部的合计，怎样用代码写（因是动态可变的列）可以自动合计出每列输入的数量。3、窗口中的“总计”textBox1是整个表的数量总和，不知怎么处理，请教各老师，现将文件传上，烦请指教！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:动态横表转竖表.rar |
-- 发布时间：2022/3/14 15:01:00
--
请举例说明一下，转换前是什么样的数据？转换后是什么样的结果？手工填入数据截图说明一下
-- 发布时间：2022/3/14 15:32:00
--
此主题相关图片如下：22.jpg
-- 发布时间：2022/3/14 15:37:00
-- [求助]表的转换代码
此主题相关图片如下：25.jpg
-- 发布时间：2022/3/14 15:58:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:表转换.zip |
-- 发布时间：2022/3/14 16:14:00
-- 麻烦再修改一下代码
代码基本上符合我的意思，但表中数量为0或空时，不要转换？代码怎么改？意思是二维输入表中，数量列为“空”时，就不要转换！
Dim t As Table = e.Form.Controls("表T").Table
Dim t2 As Table = Tables("表B")
t2.DataTable.DeleteFor("")
Dim nr As Row
For Each r As Row In t.Rows
For Each c As Col In t.Cols
If c.IsNumeric Then
nr = t2.AddNew
nr("SPH") = r("SPH")
nr("CYL") = c.Name
nr("数量") = r(c.Name)
End If
Next
Next
e.Form.Controls("TextBox1").text = t2.Compute("sum(数量)")
-- 发布时间：2022/3/14 16:25:00
--
判断数据是否为空：http://www.foxtable.com/webhelp/topics/0595.htm
帮助搜索“空值”可以查看更多的空值判断技巧
-- 发布时间：2022/3/15 9:43:00
-- 求助：修改代码
昨晚搞了一晚上也没有弄出来，麻烦“有点蓝”老师修改一下代码？二维表中，数量列为“空”时，就不要转换！