判斷列的類型的程序代碼段

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