grid 展示10列，要在第二列插一列，就得把剩下所有列号加一，有无简单办法

grid 显示10列，要在第二列插一列，就得把剩下所有列号加一，有无简单办法？
例子：

要在第二列插一列，需要把如下每行列号全部加一，高手赐招！

.column1.header1.caption="IDNO"
.column2.header1.caption="客    户"
.column3.header1.caption="产品编号"
    .column4.header1.caption="客户品号"
    .column5.header1.caption="产品名称"
    .column6.header1.caption="生 产 单"
    .column7.header1.caption="定额"
    .column8.header1.caption="计划"
    .column9.header1.caption="进仓"
.column10.header1.caption="合格"
.column11.header1.caption="预计日期"
.column12.header1.caption="安排日期"
.column13.header1.caption="实际开工"
.column14.header1.caption="生产天数"

    
    .column1.width=20
    .column2.width=60
    .column3.width=5
    .column4.width=100
    .column5.width=100
    .column6.width=80
    .column7.width=50
    .column8.width=50
    .column9.width=50
    .column10.width=0
    .column11.width=65
    .column12.width=65
    .column13.width=65
    .column14.width=50
    
.recordsource='L22_arrange'

    .column1.controlsource="l22_arrange.IDNO"
    .column2.controlsource="l22_arrange.c_abbr"
    .column3.controlsource="l22_arrange.part_no"
    .column4.controlsource="l22_arrange.ordering_no"    
    .column5.controlsource='l22_arrange.chinese_name'
    .column6.controlsource='l22_arrange.product_order_no'    
    .column7.controlsource='round(l22_arrange.quota_product,0)'
   .column8.controlsource='round(l22_arrange.product_quantity,0)'
   .column9.controlsource='round(l22_arrange.in_quantity,0)'
    .column10.controlsource='round(l22_arrange.qc_quantity,0)'      
.column11.controlsource='ttod(l22_arrange.start_date)'
.column12.controlsource='l22_arrange.arrange_date'
    .column13.controlsource='ttod(l22_arrange.start_time)'
    .column14.controlsource='round((l22_arrange.product_quantity-l22_arrange.in_quantity)/l22_arrange.quota_product/20,2)'
------解决方案--------------------
对 Grid 的数据源表加列更简单。
------解决方案--------------------
原表 有 F1,F2,F3 3个字段
Select Fl1,Recno() As NewF2,f2,f3 Into Cursor 新表名 From 原表
然后再设 新表名 为 Grid 的数据源。
------解决方案--------------------
新增列加到最后，然后调整显示到第二列即可

nn = Thisform.grid1.ColumnCount + 1
Thisform.grid1.ColumnCount = nn
With Thisform.grid1.Columns(nn)
  .ControlSource = 'l22_arrange.xxx'
  .ColumnOrder = 2
Endwith

------解决方案--------------------

MYFORM = NEWOBJECT("C_FORM")

MYFORM.SHOW

READ EVENTS

RETURN 

DEFINE CLASS C_FORM AS FORM 

   AUTOCENTER=.T.

   CAPTION="表格中插入列示例"

   ADD OBJECT GRID1 AS GRID WITH TOP=((THISFORM.HEIGHT-THISFORM.GRID1.HEIGHT)/2)+20,LEFT=(THISFORM.WIDTH-THISFORM.GRID1.WIDTH)/2