Foxtable(狐表)用户栏目专家坐堂 → 流水帐代码 帮助看一下 哪里有问题?


  共有1886人关注过本帖平板打印复制链接

主题:流水帐代码 帮助看一下 哪里有问题?

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


加好友 发短信
等级:九尾狐 帖子:2552 积分:20045 威望:0 精华:0 注册:2012/5/19 11:57:00
流水帐代码 帮助看一下 哪里有问题?  发帖心情 Post By:2016/7/10 10:20:00 [只看该作者]

For Each dr As DataRow In DataTables("毛纱进货单").Select("[_SortKey] >= " & dr("_SortKey"))
        Dim Val1 As Double = DataTables("毛纱进货单").Compute("Sum(金额)","[_SortKey] <= " & dr("_SortKey"))
        Dim Val2 As Double = DataTables("毛纱进货单").Compute("Sum(已付金额)","[_SortKey] <= " & dr("_SortKey"))
        dr("结余金额") =Val1 - Val2
    Next


 回到顶部