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

此按钮代码，是为了在数据库中新建一个新表，原来并没有错误，现在总是会出现下列提示，但是仍会执行完代码，请教这是何错？
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

第一行就是，我没贴上来，呵
Dim s,s1,s2 As String
不是这个问题

原来是内部表，现在改成Access数据表了，在窗口中动态加载，不知何故，总是出错

不会有误的，此代码虽有提示，但是仍能执行，并已生成了数据表，原本在内部表情况下并没问题，现改成窗口动态加载后才出的错，搞了三个多小时了也没有找出问题

scm.CommandText & s1 & s2    的组合，没有问题啊

CREATE TABLE 员工表
([ID]   AUTOINCREMENT,
[工号]   Text(32),
[姓名]   Text(32),
[部门]   Text(32),
PRIMARY KEY ([ID]))

和这个没关系，一点按钮就出错，我都分段测试了

请贺老师看看，顶一下！

此语句在内部表时并没有发现问题，只是我改成了外部表在窗口动态加载时才出现的啊

是啊，我的意思是说，在数据库中新建一个表，会用到其它表的数据，这个表原来是内部表，当时测试并没有问题，而现在，我将这个内部表改成外部表后，只是在窗口中动态加载了，这时，原代码就报错了，所以我想，不应该是原代码的问题，会不会是外部表在窗口动态加载的问题呢？从提示看，与窗口有关

Tables("RS_项目管理设置_Table1").Fill("Select * From {项目字段}","rs",False)
Tables("RS_项目管理设置_Table2").Fill("Select * From {人事项目}","rs",False)
Tables("RS_项目管理设置_Table4").Fill("Select * From {薪酬项目}","rs",False)
贺老师，会不会和有一个加载的表清除所有行有关？