- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 能否按行号设置计算代码？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9506)
-- 发布时间：2011/4/18 22:32:00
-- 能否按行号设置计算代码？
请教,这样的第三列代码如何写:(第一到第三列均为整数型列)
表A 第一行至第五行代码为:
e.datarow("第三列")=e.datarow("第一列")*e.datarow("第二列")
表A 第7行至第11行代码为:
e.datarow("第三列")=e.datarow("第一列")+e.datarow("第二列")
-- 发布时间：2011/4/18 23:18:00
--
你的有明确的规律才行，例如某列来标记运算方式，按行号的话，不太恰当。
-- 发布时间：2011/4/18 23:28:00
--
好，明天再说吧，谢谢！
-- 发布时间：2011/4/19 7:23:00
-- 求助，已经合并的数据如何分析？
做行号的计算,不太可能吧!
-- 发布时间：2011/4/19 9:53:00
--
做了一个简单的实例,请高手帮忙看看,谢谢!
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:按行号设置计算代码.table |
-- 发布时间：2011/4/19 10:00:00
--
不要考虑用行号，虽然可以实现，但难道你永远不会增加和删除行？
-- 发布时间：2011/4/19 10:43:00
--
固定的行数.
-- 发布时间：2011/4/19 12:26:00
--
好奇怪,附件传不上来.
请在表A的DataColChanged属性加入以下代码:
Select Case e.DataCol.Name
Case "第一列","第二列" \'如果刷新的是第一列和第一列
With Tables("表A")
For i As Integer = 0 To 4 \'选定行
.Rows(i)("第三列")= .Rows(i)("第一列") *.Rows(i)("第二列") \'选定行相乘
Next
End With
End Select
Select Case e.DataCol.Name
Case "第一列","第二列"
With Tables("表A")
For s As Integer = 6 To 12 \'选定行
.Rows(s)("第三列")= .Rows(s)("第一列") +.Rows(s)("第二列") \'选定行相加
Next
End With
End Select
-- 发布时间：2011/4/19 13:33:00
--
狐表功能确实强大,谢谢blackzhu老师!
[此贴子已经被作者于2011-4-19 13:33:11编辑过]
-- 发布时间：2011/4/19 14:16:00
--
以下是引用老有所乐在2011-4-19 13:33:00的发言：
狐表功能确实强大,谢谢blackzhu老师!
狐表功能确实强大,谢谢blackzhu老师!
不用,但是我很奇怪你为什么这样做?不符合正常的逻辑的.