Private Sub addGZXX() '添加lvwZGXX列表过程Me.lvwGZXX.ListItems.ClearSQL = "select 楼幢号,单元号,楼层号,房号,面积,单价,总价,房源状态 from HousingResources"
Call OpenConn
i = 1
rs.Open SQL, cn, 1, 1
On Error Resume Next
Do While Not rs.EOF
Set addLVW = Me.lvwGZXX.ListItems.Add(, , i, , 5)
addLVW.SubItems(1) = rs!楼幢号
addLVW.SubItems(2) = rs!单元号
addLVW.SubItems(3) = rs!楼层号
addLVW.SubItems(4) = rs!房号
addLVW.SubItems(5) = rs!面积
addLVW.SubItems(6) = rs!单价
addLVW.SubItems(7) = rs!总价
addLVW.SubItems(8) = rs!房源状态
rs.MoveNext
i = i + 1
Loop
Me.labCOUNT.Caption = "符合条件记录: " & rs.RecordCount & " 条"
Call CloseConn
End Sub我们这个报表需要做一个筛选,就是只列出房源状态为“已售”的记录集,我刚学VB,想请教一下各位老师,这个代码该怎样改啊
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货