以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQL查询表不能及时查询  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113411)

--  作者:chengjingliang
--  发布时间:2018/1/15 16:44:00
--  SQL查询表不能及时查询
SQL查询表不能及时查询,我在SQL查询表内有一个入库与支付表,当我在支付款子表增加一行支付款,不能即时更新,如:
在工程项目表—支付款子表中新增一行,选择供应商“雍西龙”支付金额80000元,在入库与支付表内没有及时体现,重新刷新SQL也不能及时体现支付金额

[此贴子已经被作者于2018/1/16 9:10:52编辑过]

--  作者:有点甜
--  发布时间:2018/1/15 16:50:00
--  
支付表新增数据后,要保存数据后,再刷新查询表,才能看到最新的数据的。
--  作者:chengjingliang
--  发布时间:2018/1/16 9:29:00
--  
我在设计窗口中用代码来编写,如何实现以上功能?

\'重新生成入库与支付表
DataTables("入库与支付").Load

\'入库与支付表按供应商计算余额
For Each h As String In  DataTables("入库与支付").GetValues("供应商")
    Dim drs As List(Of DataRow) = DataTables("入库与支付").Select("供应商=\'" & h & "\'","日期")
    If drs.Count > 0 Then
        drs(0)("余额") = drs(0)("入库金额") - drs(0)("支付金额")
        If drs.Count > 1 Then
            For i As Integer = 1 To drs.Count - 1
                drs(i)("余额") = drs(i-1)("余额") + drs(i)("入库金额") - drs(i)("支付金额")
            Next
        End If
    End If
Next


--  作者:有点甜
--  发布时间:2018/1/16 9:35:00
--  

DataTables("支付款").Save

DataTables("库明细").Save

DataTables("入库与支付").Load