网页端流水账可以弄不 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

网页端流水账可以弄不

什么跟sql绑定，编辑后什么上传到sql上去

[此贴子已经被作者于2022/7/11 11:36:45编辑过]

那用你们这个可不可以只做一个月一个月的流水

此主题相关图片如下：qq浏览器截图20220711114943.png

如果今天是2022.07.11然后我要月初读取前面最后一次的本日柜台数据，是什么弄的

[此贴子已经被作者于2022/7/11 12:01:48编辑过]

我可不可以在网页上增加一行条码列内容，然后在服务端根据条码列内容读取数据到表里

上个月最后一个内容，不一定是最后一天有内容

Select Case e.DataCol.Name
    Case "产品","入库","出库"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)
            Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)
            dr("库存") = Val1 - Val2
        Next
        If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)
                Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)
                dr("库存") = Val1 - Val2
            Next
        End If
End Select

这个不可以用在网页上吗

Dim cmd As New SQLCommand

cmd.C

Dim sql As String = "Sel4ect {销进退账目}.日期,{销进退账目}.店名,{销进退账目}.对账品名,期初数量,sum(数量) As [销售数量],Sum(Case When 退货进货='已进货' Then 数据数量 Else 0 End) As [已进货数量],-Sum(Case When 退货进货='已退货' Then 数据数量 Else 0 End) As [已退货数量] From (({销进退账目} Left JOIN {销售明细} ON {销售明细}.[日期] = {销进退账目}.[日期] And {销售明细}.[店名] = {销进退账目}.[店名] And {销售明细}.[对账品名] = {销进退账目}.[对账品名]) Left JOIN {进货退货} ON {进货退货}.[日期] = {销进退账目}.[日期] And {进货退货}.[店名] = {销进退账目}.[店名] And {进货退货}.[对账品名] = {销进退账目}.[对账品名]) Group By {销进退账目}.日期,{销进退账目}.店名,{销进退账目}.对账品名,期初数量 "'

cmd.CommandText = sql

Dim dt As DataTable = cmd.ExecuteReader

For Each dr As DataRow In dt.Select("", "日期")

这个可以弄个余数量不

此主题相关图片如下：qq浏览器截图20220712105032.png

[此贴子已经被作者于2022/7/12 10:51:47编辑过]

主题：网页端流水账可以弄不