密码是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

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

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

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

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

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

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

非常感谢，可以了！