贺老师请看看：此窗口提示是何错误？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此按钮代码，是为了在数据库中新建一个新表，原来并没有错误，现在总是会出现下列提示，但是仍会执行完代码，请教这是何错？
Tables("RS_项目管理设置_Table2").AddNew()
Tables("RS_项目管理设置_Table2").Current("项目")= e.Form.Controls("TextBox1").Value
Dim scm as New SQLCommand
scm.C
DataTables("RS_项目管理设置_Table4").DataRows.Clear()
dim f As New Filler
        f.SourceTable = DataTables("项目总表") '指定数据来源
        f.DataTable = DataTables("RS_项目管理设置_Table4") '指定数据接收表
        f.Filter = "[表名] = 'ymy'"
        f.Fill() '填充数据
Dim t as Table = Tables("RS_项目管理设置_Table4")
s= e.Form.Controls("TextBox1").Value
s1="("
if GetTableNamesFromConnection("rs").Contains(s)
Dim Result As DialogResult
Result = MessageBox.Show( s & " 表已经存在,是否删除? '是',删除后新建,'否',退出"")", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    scm.CommandText = "drop table "& s & ""
scm.ExecuteNonQuery
Else
   Return
End If
End If
For Each r as Row in t.Rows
     s1=s1 & "["& r("列名") &"] " & " " & r("列类") & "," & Chr(13) & Chr(10)
Next
s2 ="PRIMARY KEY ([" & Tables("RS_项目管理设置_Table4")(0,"列名") & "]))"
scm.CommandText = "CREATE TABLE " & s & Chr(13) & Chr(10)
scm.CommandText = scm.CommandText & s1 & s2
scm.ExecuteNonQuery

图片点击可在新窗口打开查看

此主题相关图片如下：from子句语法错误.jpg

[此贴子已经被作者于2010-3-1 13:06:35编辑过]

主题：贺老师请看看：此窗口提示是何错误？