主题：开发版开发出软件能不能增加列

If Tables("项目总表")(0,"数据库类型")="Acc" Then

 scm.CommandText = "Insert Into "&e.Form.Controls("ComboBox1").Value & " (日期) Values(date())"

Else

 scm.CommandText = "Insert Into "&e.Form.Controls("ComboBox1").Value & " (日期) Values(getdate())"

End If

scm.ExecuteNonQuery