都是自由表，把它们全部打开呀，分别指向就是了。grid是独立的，不会因为表单有多少个grid而互相影响。

[ 本帖最后由 TonyDeng 于 2013-5-17 23:05 编辑 ]

因为这些自由表会导入一些数据，我想在最后已经导入了数据的9个表，同时在9个表格中显示出来，结果是最多只显示一个表的数据

不知道你怎么操作的，又看不到代码，不要给我看表单，不看。

有QQ吗，我把程序给你，帮我看看

先在数据库中建九个表，名称和字段都按自由表结构来，把9个表加到数据环境，拉到form上，生成九个表格，然后数据环境和数据库中删除9个表，再生成9个自由表，表格就自动显示了。

cc=thisform.list3.listcount
public lll
if cc>0  then
    i=1
    do while i<=cc
          ccc=alltrim(thisform.list3.list(i))
           nnn=right(ccc,4)
           kkk=left(ccc,2)
        do case
            case  nnn="政治"
                 lll="01"
                 do cjcl with lll,kkk
            case  nnn="语文"
                 lll="02"
                 do cjcl with lll,kkk
            case  nnn="数学"
                 lll="03"
                 do cjcl with lll,kkk
                 case  nnn="物理"
                 lll="04"
                 do cjcl with lll,kkk
            case  nnn="化学"
                 lll="05"
                 do cjcl with lll,kkk
            case  nnn="英语" or nnn="外语"
                 lll="06"
                 do cjcl with lll,kkk
            case  nnn="历史"
                 lll="07"
                 do cjcl with lll,kkk
            case  nnn="地理"
                 lll="08"
                 do cjcl with lll,kkk
            case  nnn="生物"
                 lll="09"
                 do cjcl with lll,kkk
            case  nnn="理综"
                 lll="10"
                 do cjcl with lll,kkk
            case  nnn="文综"
                 lll="11"
                 do cjcl with lll,kkk
            case  nnn="综合"
                 lll="12"
                 do cjcl with lll,kkk
            endc
         
         
             use cj&lll in i
              PPP='THISFORM.GRID'+alltrim(str(i))+'.recordsource'
             ppp='cj&lll'
              qqq='thisform.grid'+alltrim(str(i))
               with &qqq
                .recordsourcetype=4
                .columncount=3
                .height=170
                .width=140
                .readonly=.t.
                .scrollbars=0
                .deletemark=.f.        
                .COLUMN1.WIDTH=55
                 .COLUMN2.WIDTH=35
                .COLUMN3.WIDTH=40
                .COLUMN1.HEADER1.CAPTION='xm'
                .COLUMN2.HEADER1.CAPTION='kgf'
                .COLUMN3.HEADER1.CAPTION='zgf'
                .COLUMN1.controlsource='cj&LLL'+'.xm'
                .COLUMN2.controlsource='cj&LLL'+'.kgf'
                 .COLUMN3.controlsource='cj&LLL'+'.zgf'
                 endwith
        &qqq..refresh
        i=i+1
    endd
    messagebox('导入成功,请查收,谢谢!','提示')  
 else
    messagebox('请选择要一一对应科目与主观分对应顺序','提示')
 endi

15楼方法是常用的比较简单方法，可取。不用数据库也行，手工先将各个单表直接加到数据环境的框内，再一个一个拖到表单上即可。

试过，程序刚运行时显示正常，但导入数据后，表格就变白板了，不知原因

数据导入后，重新绑定数据源，刷新。

一个grid绑定一个自由表 这样就全显出来了