通过列表框获得表名并打开表后,设置表格的数据源为打开的表即可。
例如在列表框的InterActiveChange事件中写入下列代码:
cDbfName=Alltrim(This.DisplayValue)
&&获得当前选择的表名
ThisForm.Grid1.RecordSource=""
ThisForm.Grid1.RecordSource=cDbfName"
&&设置表格的数据源
ThisForm.Grid1.Refresh
&&刷新表格
同时在表单的数据环境中添加要打开的表,或者在表单的init事件中打开这几个表。
在列表框中显示的项目必须与打开表的别名完全一致。
[
本帖最后由 hu9jj 于 2011-2-20 15:39 编辑 ]