【主窗体与子窗体链接问题】

hope678

附件里有两个窗体，主窗体为窗体1，子窗体为窗体2，主窗体中有两个组合框，一个为分类，一个为名称，当选定分类后，就会显示对应的名称，现在的问题是，我在主窗体中选定名称和分类后，子窗体中不能对应的显示主窗体中的内容，各位大虾帮帮忙啊，谢谢了

hope678

回复 caoguangyao 的帖子

类似于要实现双击子窗体的记录来打开窗体

hope678

回复 caoguangyao 的帖子

那比如说，我选定了分类为水果，名称为苹果（事先为苹果建立了一个窗体），想在主窗体（即窗体1）的右半部分同步显示苹果（窗体），该怎么链接啊，请指点~~谢谢

hope678

回复 caoguangyao 的帖子

能帮我看看上面这个问题（组合框的更新）又怎么弄吗？

hope678

附件的窗体1里有两个组合框，一个为分类，另一个为名称，选定分类后，就能在第二个组合框里看到相应的名称。例如，我在分类里选择了水果，名称里就有苹果和梨两个选项，我现在的问题是选中苹果或梨后，怎样实现打开苹果和梨的窗体。还有当我把表1里的添加新的分类和名称后，又怎样能够快速简单实现打开新的名称所对应的窗体。   各位大虾帮帮忙啊，谢谢

caoguangyao

还有什么不明白的问题？说来听听

hope678

回复 caoguangyao 的帖子

太感谢了

caoguangyao

Private Sub 分类_AfterUpdate()
Me.名称.Requery
Me.名称 = ""
Mynew
End Sub
Private Sub 名称_AfterUpdate()
Mynew
End Sub
Sub Mynew()
Dim str As String
str = " where true "
If Nz(Me.分类) <> "" Then
    str = str & " and " & "分类 ='" & Me.分类 & "'"
End If
If Nz(Me.名称) <> "" Then
    str = str & " and " & "名称 ='" & Me.名称 & "'"
End If
Me.窗体2.Form.RecordSource = "select * from 表1" & str
End Sub

hnhq

又学到了一点东东

hnhq

学习学习！