Public Function FieldType(intType As Integer) As String
Select Case intType
Case adChar
FieldType = "adChar"
Case adVarChar
FieldType = "adVarChar"
Case adSmallInt
FieldType = "adSmallInt"
Case adUnsignedTinyInt
FieldType = "adUnsignedTinyInt"
Case adDBTimeStamp
FieldType = "adDBTimeStamp"
End Select
for i = grid.fixedcols to grid.cols-1
if isnumeric(grid.textmatrix(grid.fixedrows,i)) then
msgbox "数字"
elseif isdate(grid.textmatrix(grid.fixedrows,i)) then
msgbox "日期"
else
msgbox "字符"
end if
next