延庆长城:VFP表格的刷新问题

为什么在每次刷新表格的时候，表格的格式总会自已改变？？  
  (我已经在属性中把全部的格式都设为固定的了)

我是用SQL语句  
  比如说我想找值在1和3之间的所有数据，让它在表格中显示，（此时出现的格式和设计是一样））  
  可是当我再次查找值为5和8之间的数据时，在表格显示的格式就不一样，  
  显示出来的格子都比原来的小，好象都是和字段长度相同？  
  有什么办法可以解决呢？？？？  
  或者要用视图？？Top

假如你选择的列是每次一样的。那么你可以添加固定列的grid，并且你也可以设置字体，宽度等。  
  代码：thisform.grid1.recordsource=""&&在重新生成数据源前，要先关闭表格的数据源  
              select   *   from   table   into   cursor   custs  
              thisform.grid1.recordsource="select   *   from   custs   into   custs"  
  如果选择的列是不一定的。  
              thisform.grid.recordsource=""  
              thisform.grid1.columncount=-1  
              select   *   from   table   into   cursor   custs  
              thisform.grid1.recordsource="select   *   from   custs   into   custs"  
            this.refreshTop

    
  方法2：在form上定义一个method:gridbinding,  
  仿照下列代码定义对grid的绑定，按你的方式，  
  每次数据源变化之后就调用这个方法。  
  （编程编程，不编怎么成！）  
  -------------------------------------------------------------  
  with   THISFORM.grid1  
  .RecordSource   =   "kmlist"  
  .COLUMNCOUNT   =   7  
  .column1.header1.CAPTION   =   ‘科目代码‘  
  .column2.header1.CAPTION   =   ‘科目名称‘  
  .column3.header1.CAPTION   =   ‘币种‘  
  .column4.header1.CAPTION   =   ‘标识‘  
  .column5.header1.CAPTION   =   ‘总分类帐‘  
  .column6.header1.CAPTION   =   ‘日记帐‘  
          .column7.header1.CAPTION   =   ‘建帐年份‘  
   
  .column1.Controlsource   =   "kmdm"  
  .column2.Controlsource   =   "km_chi_mc"  
  .column3.Controlsource   =   "wbdm"  
  .column4.Controlsource   =   "iif(km_bs=2,‘明细‘,‘汇总‘)"  
  .column5.Controlsource   =   "iif(zz_bs,‘是‘,‘   ‘)"  
  .column6.Controlsource   =   "iif(rjz_bs,‘是‘,‘   ‘)"  
  .column7.Controlsource   =   "curyear"  
   
  .column1.WIDTH   =   100  
  .column2.WIDTH   =   120  
  .column3.WIDTH   =   60  
  .column4.WIDTH   =   40  
  .column5.WIDTH   =   100  
  .column6.WIDTH   =   100  
  .column7.WIDTH   =   100  
           
          .setall("format","ZKT","column")  
  .gridlinecolor=rgb(64,128,128)  
  .setall("FONTSIZE",9,"header")  
          .setall("alignment",2,"header")  
  .readonly=.t.  
  endwith  
  thisform.refresh

首先确定一下，出现这个问题的原因是Grid的数据源"丢失"了，等你再重新设置的时候，Grid认为换了一个新的数据源，所以一切都重来了，你的Grid的表格自然变了。这个也不能算是vfp的BUG。  
  net_steven(吃素的狼)   的办法麻烦了一点，不过确实是保证不出问题。我的办法是在你刷新数据之前，先把Grid的数据源置空(Grid.RecordSorce="")，新的数据取来后，重新设置Grid.RecordSource和Column.ControlSource，然后刷新一下就行了（我一般把这一段程序作一个专用的方法——From.GirdReset()）。Top

先设置好表格的数据源，以及列的宽度，字体等,recordsourcetype=别名，recordsource="lsb"  
  lsb先假设是该表格要显示的数据源  
   
  表单load时，确保该数据源已生成。  
   
  点查询  
  thisform.grid1.recordsource=‘‘  
      select   rsda.bh,xm,xb   from     table   where   aa>1   into   cursor   lsb  
  thisform.grid1.recordsource="lsb"  
   
  注意，你表格比如要显示bh,xm两列，但数据源中必须要有sno,bh,xm三列，则你必须写成bh,xm,sno，而不能写成sno,bh,xm,把显示不用的列写后面。Top

我也有一段代码、贴出来凑个数。（放在refresh前)  
   
  clmnwdth=90  
  FOR   nCnt   =   1   to   THISFORM.grid1.ColumnCount  
  do   case  
  case   nCnt   =   1  
  this.Columns(nCnt).width   =   clmnwdth  
  otherwise  
  this.Columns(nCnt).width   =   clmnwdth/3*4  
  endcase  
  ENDFOR