Private Sub Form_Load()
Form4.Text1.Text = Form2.Text1.Text
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\win.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select select 读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
----------------------------------------------------------------------------------------------------
Private Sub Command1_Click()
Call CX     '调用函数
End Sub
----------------------------------------------------------------------------------------------
Public Sub CX()
If Check1.Value = 1 And Check2.Value = 0 Then
Adodc1.RecordSource = "select 读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and like'" & Trim(Text2.Text) & "' "
    Adodc1.Refresh
 ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Adodc1.RecordSource = "select 读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and year(出生日期)=" & Trim(Text3.Text) & ""
    Adodc1.Refresh
    ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Adodc1.RecordSource = "select 读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and 读者编号 like'" & Trim(Text2.Text) & "'and year(出生日期)=" & Trim(Text3.Text) & ""
    Adodc1.Refresh
 End If
End Sub
-------------------------------------------------------------------------
我做的一个多表查询 表名 B,C 那位高手看看我哪错了，我是新手底子不扎实请指点下

Public Sub CX()
If Check1.Value = 1 And Check2.Value = 0 Then
Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and 读者编号 like'" & Trim(Text2.Text) & "' "
    Adodc1.Refresh
 ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and year(出生日期)=" & Trim(Text3.Text) & ""
    Adodc1.Refresh
    ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and 读者编号 like'" & Trim(Text2.Text) & "'and year(出生日期)=" & Trim(Text3.Text) & ""
    Adodc1.Refresh
 End If
End Sub
---------------------------------
Private Sub Form_Load()
Form4.Text1.Text = Form2.Text1.Text
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\win.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
-------------------------------------
还是有错 高手请再指点下

哪位大哥帮帮忙啊啊

Public Sub CX()
If Check1.Value = 1 And Check2.Value = 0 Then
Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and 读者编号 like'" & Trim(Text2.Text) & "' "
    Adodc1.Refresh
ElseIf Check1.Value = 0 And Check2.Value = 1 Then
Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and year(出生日期)=" & Trim(Text3.Text) & ""
    Adodc1.Refresh
    ElseIf Check1.Value = 1 And Check2.Value = 1 Then
Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号 and 读者编号 like'" & Trim(Text2.Text) & "'and year(出生日期)=" & Trim(Text3.Text) & ""
    Adodc1.Refresh
End If
End Sub
---------------------------------
Private Sub Form_Load()
Form4.Text1.Text = Form2.Text1.Text
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\win.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "select b.读者编号,读者姓名,书籍名称 from b,c where b.读者编号=c.读者编号"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
End Sub
-------------------------------------
还是有错 高手请再指点下

版主 我知道本人水平很差 你是高手就具体点指导下 不要冷嘲热讽
如果水平高的话就不需要上网请教了 寸有所长寸有所短
谢谢  还请高手具体指点下