Dim cm1 As String ="商超自营"
Dim cm2 As String
Dim cm3 As String
Dim fl As String
Dim va1 As String = cm1
Dim v1 As String
If va1 IsNot Nothing Then
For Each a1 As String In va1.Split(",")
v1 &= "'" & a1 & "',"
Next
v1= v1.SubString(0,v1.Length-1)
fl &= "业务板块 In (" & v1 & ")"
End If
Dim va2 As String = cm2
Dim v2 As String
If va2 IsNot Nothing Then
For Each a2 As String In va2.Split(",")
v2 &= "'" & a2 & "',"
Next
v2= v2.SubString(0,v2.Length-1)
If cm1 = Nothing Then
fl &= "地区 In (" & v2 & ")"
Else
fl &= " and 地区 in (" & v2 & ")"
End If
End If
Dim va3 As String = cm3
Dim v3 As String
If va3 IsNot Nothing Then
For Each a3 As String In va3.Split(",")
v3 &= "'" & a3 & "',"
Next
v3= v3.SubString(0,v3.Length-1)
If cm1 = Nothing AndAlso cm2 = Nothing Then
fl &= "系统 in (" & v3 & ")"
Else
fl &= " and 系统 in (" & v3 & ")"
End If
End If
Dim jb As New SQLJoinTableBuilder("费用基表","利润基础表")
Dim sl As String
jb.C
jb.AddCols("业务板块","地区","系统",True)
jb.AddExp("收入","Sum(收入)")
jb.AddExp("折扣","Sum(折扣)")
jb.AddExp("费用","Sum(费用)")
jb.AddExp("固定费用","Sum(固定费用)")
jb.AddExp("变动费用","Sum(变动费用)")
jb.Filter = " [每日] = #05/31/2019# andalso " & fl
jb.Distinct = True
sl = jb.BuildSQL()
Output.Show(sl)
jb.Build
老师好，为什么我这个代码总是提示操作符丢失呢？
此主题相关图片如下：f0i1e`yw98e8tg9d@x`6t.png
加好友 
发短信
Post By：2019/6/24 10:55:00 [只看该作者]
