Option Compare Database
PrivateSub Combo4_AfterUpdate()Dim index AsStringDim county AsString
index =Me.Combo4
county =Me.Combo8
itemtype =Me.Combo10
If(county = "全部" And itemtype = "全部")Then
SQL = "SELECT* FROM 战略新兴产业项目 WHERE 申报批次 =" & index & " UNION ALL SELECT* FROM 地方基础设施项目 WHERE 申报批次 =" & index & " UNION ALL SELECT* FROM 其他社会公益、民生类项目 WHERE 申报批次 =" & index & " UNION ALL SELECT* FROM 医疗卫生补短板项目 WHERE 申报批次 =" & index & " UNION ALL SELECT* FROM 其他项目 WHERE 申报批次 = " & index
ElseIf(county <> "全部" And itemtype = "全部")Then
SQL = "SELECT* FROM 战略新兴产业项目 WHERE (申报批次 =" & index & "AND 乡镇 ='" & county & "') UNION ALL SELECT * FROM 地方基础设施项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 其他社会公益、民生类项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 医疗卫生补短板项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "') UNION ALL SELECT * FROM 其他项目 WHERE (申报批次 = " & index & " AND 乡镇 = '" & county & "')"ElseIf(county = "全部" And itemtype <> "全部")Then
SQL ="SELECT * FROM "& itemtype & " WHERE (申报批次 =" & index & ") "
Else
SQL ="SELECT * FROM "& itemtype & " WHERE (申报批次 =" & index & "AND 乡镇 ='" & county & "')"EndIfEndIfEndIfDim qry As DAO.QueryDef
Set db = CurrentDb
Set qry = db.QueryDefs("申报批次")
qry.SQL = SQL
Me.申报批次_子窗体.SourceObject = "查询.查询结果"
Me.申报批次_子窗体.Form.Requery
Me.Child6.SourceObject = "查询.查询结果汇总"
Me.Child6.Form.Requery
'DoCmd.OpenForm "申报批次查询", acDesign '运行查询EndSubPrivateSub 申报批次_子窗体_Enter()Me.Form.Requery
EndSub
Option Compare Database
PrivateSub Combo4_AfterUpdate()Dim index AsStringDim county AsString
index =Me.Combo4
county =Me.Combo8
itemtype =Me.Combo10
If county = "全部" And itemtype = "全部" Then
sql = "SELECT* FROM 申报项目 where 申报批次 = " & index
ElseIf county <> "全部" And itemtype = "全部" Then
sql = "SELECT* FROM 申报项目 WHERE (申报批次 =" & index & "AND 乡镇 ='" & county & "')"ElseIf county = "全部" And itemtype <> "全部" Then
sql = "SELECT* FROM 申报项目 WHERE (申报批次 =" & index & "AND 项目类型 ='" & itemtype & "')"Else
sql = "SELECT* FROM 申报项目 WHERE (申报批次 =" & index & "AND 项目类型 ='" & itemtype & " AND 乡镇 = '" & county & "')"EndIfEndIfEndIfDim qry As DAO.QueryDef
Set db = CurrentDb
Set qry = db.QueryDefs("申报项目查询")
qry.sql = sql
'Me.ChildDisplay.SourceObject = "查询.申报项目查询"Me.ChildDisplay.SourceObject = "查询结果"
Me.ChildDisplay.Form.Requery
Me.Child6.SourceObject = "查询.统计汇总"
Me.Child6.Form.Requery
'DoCmd.OpenForm "申报批次查询", acDesign '运行查询EndSubPrivateSub 申报批次_子窗体_Enter()Me.Form.Requery
EndSub
Option Compare DatabasePrivate Sub Combo4_AfterUpdate() Dim index As String Dim county As String index = Me.Combo4 county = Me.Combo8 itemtype = Me.Combo10 If (county = "全部" And itemtype = "全部") Then SQL = "SE