这样就正常了:
Forms("窗口1").RemoveControl("Table1")
Dim t As WinForm.Table
t = Forms("窗口1").CreateTable("Table1","表A",true)
t.SetBounds(12,12,480,300)
Forms("窗口1").AddControl(t)
Tables("窗口1_Table1").Fill("select * from {表A}","",False)
以前也碰到过,没敢提出,好像是使用SQL语句加载数据后,再来Fill 就会出错,说是找不到 X列 什么的。
再者,记得增加临时列后再删除,再来 Fill 也会这样提示。
[此贴子已经被作者于2010-2-26 9:07:36编辑过]