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

少了Dim s,s1,s2 As String ？？？

再猜一次： 列类型问题？ Access和Sql列类型有点区别的。

外部表在窗口动态加载 ， 这和以1楼代码好像没有关系吧？  1楼像是在数据源中创建一个表呀。

dim f As New Filler
        f.SourceTable = DataTables("项目总表") '指定数据来源
        f.DataTable = DataTables("RS_项目管理设置_Table4") '指定数据接收表
        f.Filter = "[表名] = 'ymy'"
        f.Fill() '填充数据
上面红字的table是Sql语句fill来的，又用上面充填可能会有问题吧？ 检查一下充填前后有没有_identify这一列？ 

试着删除原来table后，再新建一个一样的table：
e.Form.RemoveControl("Table2")
Dim t As WinForm.Table
t = e.Form.CreateTable("Table2","RS_项目管理设置_Table2",true)
t.SetBounds(12,12,500,340)     ‘后两组是table宽和高，前两组不懂^_^
e.Form.AddControl(t)

再用充填方法试一试呢？

主要是此表的 CurrentChanged事件中有代码需要事先设置:  
这个不知道能否在全局表事件中设置呢？  （猜想）