Foxtable(狐表)用户栏目专家坐堂 → [求助]统计


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

主题:[求助]统计

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


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

 你的【价税合计】列,不能是表达式列,如果是表达式列,需要特殊处理

 

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

 


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


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

 不会做,就例子上传说明。

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


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

以下是引用风声在2014-8-11 10:02:00的发言:
老师,不能及时更新要客户列重置后才能更新

 

那就是你的明细表写得不对,试试改成

 

Dim pr As DataRow
pr = DataTables("应收款").Find("客户 = '" & e.DataRow("客户") & "'")
If pr IsNot Nothing Then
    pr("价税合计")= pr("价税合计") + e.NewValue - e.OldValue
End If


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


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

例子发上,很简单的问题。

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


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

  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:蓝峰管理.rar


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


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

 代码

 

If e.DataCol.Name = "销售总额" andAlso e.NewValue <> Nothing Then
    Dim dr As DataRow
    dr = e.DataTable.Find("销售总额 = " & e.NewValue & " and 客户 = '" & e.DataRow("客户") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此号码已经存在决不能重复!")
        e.Cancel = True

    End If
End If


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


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

If e.DataCol.Name = "销售总额" andAlso e.NewValue <> Nothing Then
    Dim dr As DataRow
    dr = e.DataTable.Find("销售总额 = " & e.NewValue & " and 客户 = '" & e.DataRow("客户") & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此号码已经存在决不能重复!")
        e.NewValue = Nothing

    End If
End If


 回到顶部