主题：代码修改

密码是1234

 

具体修改见红色字体部分，目的只要是收发类型为“调拨入库”，不管业务单号开头是R还是D其他字母，我一律计算到店铺_调拨入库，但就是不行，只是把以R开头的业务单号且收发类型为“调拨入库”计算了，而已D或其他字母开头的业务单号，收发类型为“调拨入库”则没计算出来，请各位高手帮忙看下，谢谢！

 

 

 

Dim dt3 As DataTable
Dim bd1 As  GroupTableBuilder
Dim fxdts(8) As fxDataSource
Dim nms(),Ymds(),Bts() As String
Dim  Filter,s2,s3 ,flt1,ep1,ep2,ep3 As  String

Dim nms1 As String() = {"编码","名称","颜色","尺码","年份","季节","零售价"}  '分組列1
Dim nms2 As String() = {"编码","名称","颜色","尺码","年份","季节"}  '分組列2
Dim t3 As Table = e.Form.Controls("库存报表").Table

Ymds="D@F@T@R@R@@@@".split("@")
Bts= "库房_调拨出库@库房_收货入库@库房_返货出库@店铺_调拨出库@店铺_调拨入库@店铺_零售出库@店铺_零退入库@店铺_库调@店铺_退货入库".split("@")      '統計標題

ep1 = "IsNull([库房_收货入库],0) +IsNull([库房_返货出库],0)+IsNull([库房_调拨出库],0)+IsNull([店铺_退货入库],0)-Isnull([店铺_库调],0)"
ep2 = "IsNull([店铺_库调],0) +IsNull([店铺_调拨入库],0)+IsNull([店铺_调拨出库],0)+IsNull([店铺_零退入库],0)"
ep2+="-Isnull([店铺_零售出库],0)-Isnull([店铺_退货入库],0)"
ep3 = "IsNull([合计_库房],0) +IsNull([合计_店铺],0)"

s3 ="品牌,门店,年份,季节,开始日期,截止日期"
For Each s2 In  s3.split(",")
    With e.Form.Controls(s2)
        If .Value  IsNot  Nothing   Then
            If Filter > ""   Then
                Filter+ = " And "
            End  If
            If s2 = "开始日期" Then
                Filter+ =  "单据日期 >= #" & .Value &   "#"
            ElseIf s2 = "截止日期"  Then
                Filter+ =  "单据日期 <= #" & .Value &   "#"
            Else
                Filter+ =   s2 & " = '" & .Value &   "'"
            End  If
        End  If
    End   With
Next

 

 

If   Filter >  "" Then
    Tables("出入库明细").Filter =  Filter
   
    For n1 As Integer = 0 To 8
        If n1 > 6 Then
            dt3 = DataTables("库调明细表_主表")
        Else
            dt3 = DataTables("出入库明细")
        End If
        bd1 = New GroupTableBuilder("报表",dt3)
        For Each s2 In nms1
            If dt3.DataCols.Contains(s2) Then
                bd1.Groups.AddDef(s2) '分组
            End If
        Next
       
        bd1.Totals.AddDef("数量",Bts(n1)) '对数量进行统计
        flt1= "收发类型= '" &   Bts(n1).split("_")(1) & "'"
       
        If flt1="调拨入库"  Then
            flt1+=""
        Else
            If Ymds(n1) > "" Then
                flt1+= " And 业务单号首位 = '" &  Ymds(n1) & "'"
            End If
        End If
       
        bd1.Filter = flt1  & " and " & Filter
        fxdts(n1)  = bd1.BuildDataSource()
        nms = iif(n1 < 7,nms1,nms2)
        If  n1  > 0 Then  fxdts(0).Combine(nms,fxdts(n1),nms)
    Next
   
   
    t3.StopRedraw
    t3.DataSource = fxdts(0)
    With t3.DataTable.DataCols
        .Add("合计_库房", Gettype(Integer),ep1)
        .Add("合计_店铺", Gettype(Integer),ep2)
        .Add("合计_店库", Gettype(Integer),ep3)
    End With
    t3.AutoSizeCols
    t3.ResumeRedraw
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

代码在哪里? 你利用messagebox.show 弹出你拼接的条件.看一下是否符合要求.

代码在库存报表窗口的查询按钮的单击事件！

Bin版主，不好意思，刚才附件搞错了，代码还是在库存报表的查询按钮的单击事件，帮忙看下，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件夹.rar

意思

这个意思?

不是这个意思，版主是直接把业务单号开头字母的条件注释掉了，我的目的是对收发类型进行判断，如收发类型为调拨入库（独立处理），则对应数量计为店铺调拨入库，其他的收发类型与业务单号开头字母的组合条件再计算（组合条件）！

Ymds = "D@F@T@R@@@@@".split("@")    

非常感谢，可以了！