[请教专家]如何实现子窗体根据组合框内容动态显示？

lfffirst

请教各位专家，现有一主窗体，一组合框，一子窗体。
     如何根据组合框中绑定的各表名，在子窗体中动态显示相应表的内容呢？

谢谢各位了！！！

todaynew

更换子窗体数据源

Private Sub Combo0_BeforeUpdate(Cancel As Integer)
    Me.子窗体控件名称.Form.RecordSource = Combo0.Value
End Sub

Trynew

动态建立一个查询，使用这个查询作为子窗体

tz-chf

更换子窗体数据源

Private Sub Combo0_BeforeUpdate(Cancel As Integer)
    Me.子窗体控件名称.Form.RecordSource = Combo0.Value
End Sub
todaynew 发表于 2009-2-10 14:26

只改数据源,控件都不用绑定?

todaynew

只改数据源,控件都不用绑定?
tz-chf 发表于 2009-2-10 16:16

呵呵，就是。搞个引号不知道行否？

lfffirst

显示记录集的通用窗体.rar (92.88 KB)
动态建立一个查询，使用这个查询作为子窗体

你好，谢谢你的回复。但是你给我的示例并不能动态显示组合框的内容阿。

lfffirst

更换子窗体数据源
Private Sub Combo0_BeforeUpdate(Cancel As Integer)
    Me.子窗体控件名称.Form.RecordSource = Combo0.Value
End Sub

谢谢你的解答，但我希望是组合框选择内容是表的名字，子窗体显示相应表的所有字段内容。

todaynew

谢谢你的解答，但我希望是组合框选择内容是表的名字，子窗体显示相应表的所有字段内容。
lfffirst 发表于 2009-2-10 16:35

呵呵，我已经遭到元老同志的严厉批评了，代码写的不对。

好像应该这样写：
Private Sub Combo0_BeforeUpdate(Cancel As Integer)
    dim sql as string
    sql="select * from  " & Combo0.Value
    Me.子窗体控件名称.Form.RecordSource = sql
End Sub

不知道可不可以，没有测试过，你试试。

ACMAIN_CHM

在字窗体中，先添加256个textbox001 to textbox256 ,

在combox的事件中，打开对应表的 recordset,然后根据 fields来设置各个textbox的绑定ControlSource
对没有绑定的 text012-text256 （假设只有11列在这个表中)进行columnhide隐藏。

简单点就换MSFlexibGrid算了。


******************
*  一切皆有可能  *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

lfffirst

Private Sub Combo0_BeforeUpdate(Cancel As Integer)
    dim sql as string
    sql="select * from  " & Combo0.Value
    Me.子窗体控件名称.Form.RecordSource = sql

赫赫 感谢各位元老  但是还是不行，提示错误代码为2467 最后一句执行错误