'筛选后统计代码,下面代码正确
Dim txt As String = e.Form.Controls("楼幢号").Text
Dim tbl As Table = Tables("销控表")
If txt = "" Then
tbl.Filter = ""
Else
txt = "'%" & txt & "%'"
tbl.Filter = " 楼幢号 Like " & txt
End If
e.Form.Controls("Label1").Text = "本幢楼共有:" & DataTables("表A").Compute("count(楼幢号)", "楼幢号 Like " & txt) & "套"
e.Form.Controls("Label2").Text = "已安置:" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='已安置' ") & "套"
e.Form.Controls("Label3").Text = "未安置:" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='未安置'") & "套"
'我想再增加一个条件, 显示类别 = '0编号',可是搞了半天还是没有做好,请叫老师如何修改下面代码?
e.Form.Controls("Label1").Text = "本幢楼共有:" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "显示类别 = '0编号'") & "套"
e.Form.Controls("Label2").Text = "已安置:" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='已安置'" And 显示类别 = '0编号'") & "套"
e.Form.Controls("Label3").Text = "未安置:" & DataTables("表A").Compute("count(楼幢号)", IIf(txt > "", "楼幢号 Like " & txt & " and ", "") & "安置状态='未安置'" And 显示类别 = '0编号'") & "套"