数据库中有一个表：
数据模型如下：
xinmin   riqi    chidaocishu zaotuicishu
A         0501    2            1               
A         0502    0             1        
A          0503    2            0        
B            0501    1            1
B            0502    1            1   
B            0503    2            0
C            0501    1            0
已经用姓名为条件查询了关于A的数据，并显示在DataGrid1中
现在想以DataGrid1的结果为记录集查询A的0501-0502期间的数据的，并显示在DataGrid2中，如何操作

[此贴子已经被作者于2021-8-1 12:01编辑过]

第二个查询使用第一个查询为表来查询

select * From (select * form 表 where 条件) as B1 where B1.riq0i>........

大体上就是这样的，括号里是第一个次查询的SQL命令。

谢谢大神

麻烦大神再给看一下，指导一下，谢谢！

Private Sub Command2_Click()
Dim rec As ADODB.Recordset
Set rec = New ADODB.Recordset
Dim strSQL As String
If Trim(Text1.Text) = "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" Then
   
  MsgBox "请输入查询条件", , "提示"
   ElseIf Trim(Text1.Text) <> "" And Trim(Text2.Text) = "" And Trim(Text3.Text) = "" Then
   strSQL = "select * from biao where xinmin = '" & Text1.Text & "'"
    rec.Open strSQL, cn, adOpenStatic, adLockOptimistic
     Set DataGrid1.DataSource = rec
   
ElseIf Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) = "" Then
    strSQL = "select * from biao  where xinmin = '" & Text1.Text & "'and riqi>='" & Text2.Text & "'"
     rec.Open strSQL, cn, adOpenStatic, adLockOptimistic
     Set DataGrid1.DataSource = rec
   
     ElseIf Trim(Text1.Text) <> "" And Trim(Text2.Text) <> "" And Trim(Text3.Text) <> "" Then
         strSQL = "select * from biao where xinmin = '" & Text1.Text & "'and (riqi>='" & Text2.Text & "' and  riqi<='" & Text3.Text & "')"
     rec.Open strSQL, cn, adOpenStatic, adLockOptimistic
     Set DataGrid1.DataSource = rec
 Else
   MsgBox "请输入查询条件", , "提示"
End If
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
Dim res As ADODB.Recordset
Set res = New ADODB.Recordset
这里用你说的这一句，报属性无效的错，麻烦大神看一下，怎么写,而且我前面DataGrid1.DataSource的查询比较复杂，如何在这里找到DataGrid1.DataSource中的
1、riqi=text2.text的结果；
2、由riqi=text2.text向前N天的结果（riqi不一定是连续的）。
Set DataGrid2.DataSource = res
End Sub

[此贴子已经被作者于2021-8-1 22:35编辑过]

我想复杂了。。

-----------------------------
这里面这样写
strsql=""
if Trim(Text1.Text) <> "" then                                 '条件一
    strsql=strsql & " and  xinmin = '" & Text1.Text & "'"
end if
if Trim(Text2.Text) <> "" then                                 '条件二
    strsql=strsql & " and  riqi>='" & Text2.Text & "'"
end if
if Trim(Text3.Text) <> "" then                                 '条件三
    strsql=strsql & " and  riqi<='" & Text3.Text & "')"
end if
if len(strsql)=0 then                           '条件均未执行到
   MsgBox "请输入查询条件", , "提示"
'   exit sub                 '如果endif后面还有命令，如果提示后不需要再执行的，那么这里就要加一句退出过程
else
   strsql=mid(strsql,5)                '去掉前面多出来的 and ，前面还有一个空格，所以是 5开始。
   strsql="select * from biao where " & strsql             '把查询条件附到后面
.....
endif
end sub
----------------------
浏览器写的代码，未经测试。
大体上就是这样组合多个条件，逐步组合，最后判断是否有数据，有数据则去执行条件。

谢谢！

如果 riqi 不能用 大于和小于的话，那只能转换一下思路。
首先，提供了前面那个值，就必须提供后面的值
然后自己用循环生成中间所有的值
这些所有的值 使用 or 进行连接，生成的sql 命令最后为这样的
select * from biao where xinmin = '" & Text1.Text & "' and (riqi='0501' or riqi='0502' ....)