以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88465)
--  作者：g1j2h3
--  发布时间：2016/8/3 14:16:00
--  表格数据

下表中的尾款应该变为零，如何设置？

 


图片点击可在新窗口打开查看此主题相关图片如下：尾款.png
图片点击可在新窗口打开查看
--  作者：大红袍
--  发布时间：2016/8/3 15:32:00
--  

参考

 

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

 
--  作者：cbt
--  发布时间：2016/8/3 15:33:00
--  
\'DataColChanged 事件(参考)
If E.DataCol.Name ="本次付款金额" Then
    Dim bh As String = e.DataRow("采购编号")
    Dim aa As Boolean = False
    For i As Integer = 0 To DataTables("表A").dataRows.Count-1
        If DataTables("表A").dataRows(i)("采购编号") = bh Then
            Dim dr As DataRow = DataTables("表A").DataRows(i)
            If aa = False Then
                dr("剩余尾款") = dr("货款总价") - dr("本次付款金额")
            Else
                dr("剩余尾款") = DataTables("表A").DataRows(i-1)("剩余尾款")-dr("本次付款金额")
            End If
            aa=True
        End If
    Next
End If
[此贴子已经被作者于2016/8/3 15:37:42编辑过]
--  作者：g1j2h3
--  发布时间：2016/8/3 17:13:00
--  
谢谢各位的支持！
--  作者：g1j2h3
--  发布时间：2016/8/3 17:42:00
--  
相同采购编号的不一定是差一行，也许差好多行，如何编辑，我不会写代码，请大师指教！
--  作者：大红袍
--  发布时间：2016/8/3 18:01:00
--  

看流水账的设计

 

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