'更改字段通用函数
Sub ModColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Alter Column "&ColumnName&" "&ColumnType&"")
If Err Then
Call InnerHtml("UpdateInfo","更改 "&TableName&" 表中字段属性<font color='blue'>错误</font>,请手动将数据库中 <B>"&ColumnName&"</B> 字段更改为 <B>"&ColumnType&"</B> 属性,原因" & Err.Description)
Err.Clear
Else
Call InnerHtml("UpdateInfo","更改 "&TableName&" 表中字段属性 "&ColumnName&" 成功")
End If
End Sub