[浏览完整版]
标题：能否按行号设置计算代码？
1楼
老有所乐 发表于：2011/4/18 22:32:00请教,这样的第三列代码如何写:(第一到第三列均为整数型列)
表A 第一行至第五行代码为:
e.datarow("第三列")=e.datarow("第一列")*e.datarow("第二列")
表A 第7行至第11行代码为:
e.datarow("第三列")=e.datarow("第一列")+e.datarow("第二列")
2楼
狐狸爸爸 发表于：2011/4/18 23:18:00你的有明确的规律才行，例如某列来标记运算方式，按行号的话，不太恰当。
3楼
老有所乐 发表于：2011/4/18 23:28:00好，明天再说吧，谢谢！
4楼
blackzhu 发表于：2011/4/19 7:23:00做行号的计算,不太可能吧!
5楼
老有所乐 发表于：2011/4/19 9:53:00
6楼
狐狸爸爸 发表于：2011/4/19 10:00:00不要考虑用行号，虽然可以实现，但难道你永远不会增加和删除行？
7楼
老有所乐 发表于：2011/4/19 10:43:00固定的行数.
8楼
blackzhu 发表于：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
9楼
老有所乐 发表于：2011/4/19 13:33:00狐表功能确实强大,谢谢blackzhu老师!
[此贴子已经被作者于2011-4-19 13:33:11编辑过]
10楼
blackzhu 发表于：2011/4/19 14:16:00以下是引用老有所乐在2011-4-19 13:33:00的发言：
狐表功能确实强大,谢谢blackzhu老师!
狐表功能确实强大,谢谢blackzhu老师!
不用,但是我很奇怪你为什么这样做?不符合正常的逻辑的.