建[窗口1],插入[Table1]:
Dim jb As New SQLJoinTableBuilder("查询","员工")
jb.AddTable("员工","部门ID","部门","部门ID")
jb.AddCols("{部门}.单位ID","部门名称","姓名")
Dim sql As String ="Select 单位名称,部门名称,姓名 From("
sql+=jb.Buildsql & ") A Inner JOIN {单位} ON {单位}.[单位ID] = A.[单位ID]"
Tables("窗口1_Table1").FIll(sql,True)
不用写代码也行:
http://www.foxtable.com/help/topics/2322.htm