Foxtable(狐表) → 用户栏目 → 专家坐堂 → 临时表如何计算余额流水帐


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

主题：临时表如何计算余额流水帐
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

生成临时表后，全局表事件，然后写代码

 

http://www.foxtable.com/webhelp/scr/0671.htm

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


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

以下是引用nbsugu_z在2018/7/27 10:42:00的发言：

在哪个事件写代码合适呢

 

参考流水账设计

 

http://www.foxtable.com/webhelp/scr/1572.htm

 

如果是问在什么地方开启全局表事件，在你生成临时表之后的代码加上开启代码。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用nbsugu_z在2018/7/27 11:08:00的发言：

好的，试试下，还有问题，就是这个临时表要增加一下“余额”列，代码是何写？

 

 

http://www.foxtable.com/webhelp/scr/1428.htm

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


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

既然是统计表，那就在生成之后，添加一列，然后循环表格每一行，计算余额值。

 

不会做上传具体实例说明。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

生成后循环每一行赋值

 

Dim dt As DataTable = DataTables("统计表D")
For Each dr As DataRow In dt.Select("")
    Dim Val1 As Double = dt.Compute("Sum(工程fa piao_价税合计)","[记帐日期] <= " & dr("记帐日期"))
    Dim Val2 As Double = dt.Compute("Sum(工程fa piao_收到工程款)","[记帐日期] <= " & dr("记帐日期"))
    dr("按fa piao未收工程款") = Val1 - Val2
Next
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用nbsugu_z在2018/7/27 16:00:00的发言：
余额还是出不来图片点击可在新窗口打开查看

 

代码写到你按钮里面啊。

 

不会做，就请上传实例测试。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

[此贴子已经被作者于2018/7/27 17:11:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

改成

 

Dim dt As DataTable = DataTables("统计表D")
For Each dr As DataRow In dt.Select("")
    Dim Val1 As Double = dt.Compute("Sum(工程fa piao_价税合计)","[记帐日期] <= #" & dr("记帐日期") & "#")
    Dim Val2 As Double = dt.Compute("Sum(工程fa piao_收到工程款)","[记帐日期] <= #" & dr("记帐日期") & "#")
    dr("按fa piao未收工程款") = Val1 - Val2
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询