以下是引用yangming在2010-3-22 14:49:00的发言: Dim scm1 as New SQLCommand scm1. C Dim t as Table = Tables(Vars("表名")) scm1.CommandText = "ALTER TABLE " & Vars("表名") & " ADD " & s & " " & dr("列类") & "" scm1.ExecuteNonQuery MessageBox.Show( s & "列已新增到" & Vars("表名") & "表中")