Foxtable(狐表)用户栏目专家坐堂 → [求助]事件代码执行后系统强行退出的求助


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

主题:[求助]事件代码执行后系统强行退出的求助

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/6 14:04:00 [显示全部帖子]

If e.DataCol.Name = "重量单价" OrElse e.DataCol.Name = "卷号" Then
    Dim Sum1 As Double
    Sum1 = Tables("工序表").Compute("Sum(重量单价)", "卷号 = '" & e.DataRow("卷号") & "'")
    e.DataRow("重量累计单价")=sum1
End If

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/6 14:29:00 [显示全部帖子]

以下是引用huangfanzi在2014-11-6 14:07:00的发言:
原来如此,要加IF啊,另外,这段代码我想放到窗口界面的按钮代码中,如何改写?之前学了半小时,没有成功。

 

http://www.foxtable.com/help/topics/1468.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/6 14:54:00 [显示全部帖子]

 按钮最后加入代码

 

DataTables("工序表").DataCols("卷号").RaiseDataColChanged


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/6 15:05:00 [显示全部帖子]

 要先选择对应的列,再点重置列


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/6 15:26:00 [显示全部帖子]

For Each dr As DataRow In DataTables("工序表").DataRows
    Dim Sum1 As Double
    Sum1 = Tables("工序表").Compute("Sum(重量单价)", "卷号 = '" & dr("卷号") & "'")
    dr("重量累计单价")=sum1
Next

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/11/6 15:49:00 [显示全部帖子]


 回到顶部