可以这样:
colCount = long(dw.Describe("Datawindow.Column.Count"));
for col = 1 to colCount;
dw.setColumn(col);
colname = dw.GetColumnName();
coltype = dw.Describe(colName+'.ColType');
Coltype = Lower(Left(coltype,5));
choose case colType
case 'char('
... ...
case 'numbe','decim','int','long'
... ...
case 'date'
... ...
case 'datet'
... ...
case else
... ...
end choose
next