查询多表数据后把数据放到rs记录集中。如何对通过combox控件对RS记录集进行筛选
Private Sub Form_Load()
Dim a As String
Dim i As Integer
Combo1.Clear
Call kai
Set rs = New ADODB.Recordset
sql = "select a.id,a.车牌号,a.车辆颜色,a.车型,a.车架号,a.发动机号,a.购置时间,a.类型,a.车牌归属,b.保险到期,b.保险提醒,c.验车到期,c.验车提醒,d.合约编号,d.租赁期间,d.剩余月数,d.月租费,d.租赁期数,e.违章累计,e.违章记录 from ((([cl_车辆信息] as a left join [cl_保险时间] as b on a.车架号=b.车架号) left join [cl_验车提醒] as c on a.车架号=c.车架号) left join [cl_租赁时间] as d on a.车架号=d.车架号) left join [cl_违章记录] as e on a.车架号=e.车架号 order by a.类型"
rs.Open sql, conn, 3, 1
'For i = 0 To rs.RecordCount
'Next i
Do While Not rs.EOF
If a <> rs("类型") Then
Combo1.AddItem rs("类型")
a = rs("类型")
rs.MoveNext
Else: rs.MoveNext
End If
Loop
Set Me.MSHFlexGrid1.DataSource = rs
Call bgkd
Call colore
Call tx
End Sub
