判断列的类型的程序代码段

int li_i,li_RowCount
String ls_ColName,ls_visible,ls_ColType,ls_visible1
li_RowCount = Integer(adw_2.Describe("DataWindow.Column.Count"))
For li_i = 1 to li_RowCount

 ls_ColName = adw_2.Describe("#" + String(li_i) + ".Name")
ls_Visible = adw_2.Describe(ls_ColName + ".Visible")
ls_Visible1 = adw_1.Describe(ls_ColName + ".Visible")
If ls_Visible = '1' and (ls_visible1 = '1' or ls_visible1 = '0') Then//只有显示可以编辑的字段进行更新
  ls_ColType = adw_2.Describe(ls_ColName + ".ColType")
  If Pos(ls_ColType,'(') > 0 Then
   ls_ColType = Left(ls_ColType,Pos(ls_ColType,'(') - 1)
  End If
  CHOOSE CASE lower(ls_ColType)
   CASE 'char'
   CASE 'decimal'
   CASE 'long','number'
   CASE 'datetime'
   CASE ELSE
    MessageBox('提示信息','of_save1函数没有写'+ls_ColType + '类型的程序!')
  END CHOOSE
End If
Next

 

注意:

1.必须有for...next循环

2.循环读取detail部分的列名.Name;读取header部分的显示名_t.text