根据下面红色的代码,你得首先建立一个名为sjk的数据源
Dim tj As String = "Select * From {表A}"Dim c As String = "叠次,100|叠名,318|报型,100"Tables("窗口1_Table1").Fill(tj,"sjk",False) '加载TableFunctions.Execute("DataList",Tables("窗口1_Table1"),c) '显示列表