Foxtable(狐表)用户栏目专家坐堂 → 能否按行号设置计算代码?


  共有11920人关注过本帖树形打印复制链接

主题:能否按行号设置计算代码?

帅哥哟,离线,有人找我吗?
老有所乐
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
能否按行号设置计算代码?  发帖心情 Post By:2011/4/18 22:32:00 [只看该作者]

请教,这样的第三列代码如何写:(第一到第三列均为整数型列)

表A  第一行至第五行代码为:

 e.datarow("第三列")=e.datarow("第一列")*e.datarow("第二列")

 

表A  第7行至第11行代码为:

  e.datarow("第三列")=e.datarow("第一列")+e.datarow("第二列")

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/18 23:18:00 [只看该作者]

你的有明确的规律才行,例如某列来标记运算方式,按行号的话,不太恰当。

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2011/4/18 23:28:00 [只看该作者]

好,明天再说吧,谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
求助,已经合并的数据如何分析?  发帖心情 Post By:2011/4/19 7:23:00 [只看该作者]

做行号的计算,不太可能吧!

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2011/4/19 9:53:00 [只看该作者]

做了一个简单的实例,请高手帮忙看看,谢谢!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:按行号设置计算代码.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2011/4/19 10:00:00 [只看该作者]

不要考虑用行号,虽然可以实现,但难道你永远不会增加和删除行?

 回到顶部
帅哥哟,离线,有人找我吗?
老有所乐
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2011/4/19 10:43:00 [只看该作者]

固定的行数.

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By: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楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:746 积分:6673 威望:0 精华:1 注册:2008/9/1 11:46:00
  发帖心情 Post By:2011/4/19 13:33:00 [只看该作者]

狐表功能确实强大,谢谢blackzhu老师!
[此贴子已经被作者于2011-4-19 13:33:11编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57584 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2011/4/19 14:16:00 [只看该作者]

以下是引用老有所乐在2011-4-19 13:33:00的发言:
狐表功能确实强大,谢谢blackzhu老师!

不用,但是我很奇怪你为什么这样做?不符合正常的逻辑的.
 





 回到顶部
总数 11 1 2 下一页