用VBA代码+DAO生成带条件的交叉表查询Option Compare DatabasePrivate Sub cmd查询_Click()On Error GoTo Err_cmd查询_Click    Dim strWhere As String  '定义条件字符串    Dim qdf As DAO.QueryDef 'qdf被定义为一个查询定义对象    Dim strSQL As String        strWhere = "" '设定初始值－空字符串