|
Dim sg As New SQLJoinTableBuilder("数据看板","车辆信息")
Dim Filter As String
sg.AddTable("车辆信息","车辆编号","采购信息","车辆编号")
sg.AddTable("车辆信息","车辆编号","销售信息","车辆编号")
sg.AddTable("车辆信息","车辆编号","厂家返利","车辆编号",JoinModeEnum.Left)
sg.AddCols("{车辆信息}.车辆编号","{车辆信息}.品牌","{车辆信息}.型号","{销售信息}.销售价格","{销售信息}.部门","{销售信息}.员工","{采购信息}.含税单价","{厂家返利}.补贴","{厂家返利}.返利","{厂家返利}.折扣","{厂家返利}.其他优惠")
sg.Build()
Dim nms1() As String = e.Form.Controls("品牌T1").text.Split(",")
Dim nms2() As String = e.Form.Controls("品牌T2").text.Split(",")
Dim filter1 As String = "品牌 = '" & nms1(0) & "'"
For i As Integer = 1 To nms1.Length-1
If Filter1 >"" Then
Filter = Filter1 & " or "
End If
filter1=filter1 & "品牌 = '" & nms1(i) & "'"
Next
Tables("数据看板_Table3").DataSource = sg.BuildDataSource()
Tables("数据看板_Table3").Filter = "品牌 = '" & nms2(0) & "'"
Tables("数据看板_Table2").DataSource = sg.BuildDataSource()
Tables("数据看板_Table2").Filter = filter1
|
加好友 
发短信
Post By：2016/1/31 17:25:00 [显示全部帖子]
