要求：在一个表单中，有两个表格，分别显示不同的表的数据，能做到同时显示吗

请问：如何实现

我是想把查询的结果通过两个表格显示出来，但只能同时显示一个

这样我详细说下我的程序功能：考试时，阅卷会产生各科的客观分，利用EXCEL输入主观分，利用程序把主观分合并到各科的数据库中，合并结束，我想用9个表格显示9科的数据，显示是否合并成功，不知我是否说明了

其实就是9个自由表，只是想把他们的同时显示到表单中，不知如何做，见笑了

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

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

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

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

每次使用时，不一定有这九个表，所以无法绑定在环境中