主表查询

suqji

之前承蒙帮助，完成了部分功能，但还有一部分未完成，就是查询某业务员时，将某业务员所对应的客户全部数据列出来，运行忽略查询客户的宏，想了很久也解决不了，希望有人不吝赐教，谢谢！

donghui2363

你试试
            If .Value = "" Then
                str = "where 业务员='" & .Offset(, 3).Value & "' "
            Else
                str = "where 客户全称='" & .Value & "' and 业务员='" & .Offset(, 3).Value & "'"
            End If

suqji

donghui2363 发表于 2021-9-25 17:32
你试试
            If .Value = "" Then
                str = "where 业务员='" & .Offset(, 3).Value ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String, sql As String
       With Target
                 Application.EnableEvents = False
                    If .Value = "" Then
                str = "where 业务员='" & .Offset(, 3).Value & "' "
            Else
                str = "where 客户全称='" & .Value & "' and 业务员='" & .Offset(, 3).Value & "'"
                   sql = "select 客户全称,出货单号 ,sum(未税金额),sum(金额),sum(业务员),sum(差异),sum(税金),sum([差额/佣金]),sum(运费),sum(公司收入)  from [8月审单$]  " & str & "group by 客户全称,出货单号"
            Range("a4:i" & Application.Max(4, [a65536].End(3).Row)).ClearContents
               sql = sql & " union select '合计','',sum(未税金额),sum(金额),'',sum(差异),sum(税金),sum([差额/佣金]),sum(运费),sum(公司收入)  from [8月审单$] " & str
            QueryInfoTo sql, [a65536].End(3).Offset(1)
            Application.EnableEvents = True
        End If
    End With
End Sub

运行后只有合计，没有明细和其它数据

suqji

donghui2363 发表于 2021-9-25 17:32
你试试
            If .Value = "" Then
                str = "where 业务员='" & .Offset(, 3).Value ...

放入位置与方式可能有误，出现运行有问题

suqji

运行有点问题

zpy2

suqji 发表于 2021-9-26 08:23
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String, sql As String
        ...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String, sql As String
       With Target
                 Application.EnableEvents = False
                    If .Value = "" Then
                str = "where 业务员='" & .Offset(, 3).Value & "' "
            Else
                str = "where 客户全称='" & .Value & "' and 业务员='" & .Offset(, 3).Value & "'"
          rem         sql = "select 客户全称,出货单号 ,sum(未税金额),sum(金额),sum(业务员),sum(差异),sum(税金),sum([差额/佣金]),sum(运费),sum(公司收入)  from [8月审单$]  " & str & "group by 客户全称,出货单号"
sql = "select 客户全称,出货单号 ,sum(未税金额,金额........,业务员,sum(差异),sum(税金),sum([差额/佣金]),sum(运费),sum(公司收入)  from [8月审单$]  " & str  
rem 把全部sum函数取消试试 显示明细
            Range("a4:i" & Application.Max(4, [a65536].End(3).Row)).ClearContents
               sql = sql & " union select '合计','',sum(未税金额),sum(金额),'',sum(差异),sum(税金),sum([差额/佣金]),sum(运费),sum(公司收入)  from [8月审单$] " & str
end if '改
            QueryInfoTo sql, [a65536].End(3).Offset(1)
            Application.EnableEvents = True
  rem      End If
    End With
End Sub

suqji

zpy2 发表于 2021-9-26 12:58
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim str As String, sql As String
        ...

复制到文件中，还是运行不了

zpy2

suqji 发表于 2021-9-27 13:49
复制到文件中，还是运行不了

sql = "select 客户全称,出货单号 ,未税金额,金额,业务员 from [8月审单$]" & str
rem 把全部sum函数取消试试 显示明细

ericxzhou

1. Sub test()
   
2.     Dim i%, Cn, Rs, sql$, str$
   
3.     Set Cn = CreateObject("ADODB.Connection")
   
4.     Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
   
5.     With Sheet1
   
6.         .[h3] = "[差额/佣金]"
   
7.         For i = 1 To 10
   
8.             str = str & "," & .Cells(3, i)
   
9.         Next
   
10.         str = Right(str, Len(str) - 1)
    
11.         sql = "SELECT " & str & " FROM [8月审单$] WHERE 业务员='" & .[e1] & "' AND 客户全称='" & .[b1] & "'"
    
12.         .[a3].CurrentRegion.Offset(1).ClearContents
    
13.         Set Rs = Cn.Execute(sql)
    
14.         .[a4].CopyFromRecordset Rs
    
15.         .[h3] = "差额/佣金"
    
16.     End With
    
17. End Sub

复制代码

suqji

zpy2 发表于 2021-9-27 13:59
sql = "select 客户全称,出货单号 ,未税金额,金额,业务员 from [8月审单$]" & str
rem 把全部sum函数取 ...

rem 把全部sum函数取消，是什么意思，因为这方面知识缺乏，百度过，也不明白