专家坐堂-数据引用或窗体引用其他表数据的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、凭证表（序时账簿，包含各凭证分录数据）、明细账或余额表（查询生成）

2、凭证表序时账簿datatables有N多页，序时账簿tables每页只设成40行；在"明细账查询"是希望点击凭证号时弹出《凭证窗口》，加载对应凭证数据内容

3、问题：当 “所选某凭证号” 的分录数据，只有序时账簿tables（当前页）显示时，凭证分录数据加载正常，否则弹出的凭证窗口不显示分录数据。

4、一直疑惑：以上数据引用弹出，提取 “数据源表”的问题是定位的问题吗，是否每次引用“其他表数据”，需要将“其他表数据”进行筛选（即loadfilter)???

加载（双击）的代码如下：

If e.Col.Name = "凭证号" And e.Row.IsNull("凭证号") = False Then

Dim tabname As String = CurrentTable.Name

Dim dr As Row = Tables(tabname).Current

Dim drr As DataRow = DataTables("序时账簿01").sqlFind("凭证编号= \'" & dr("凭证号") & "\'")

If drr IsNot Nothing Then

Forms("凭证").Opento("序时账簿01")

Dim fbl As WinForm.Table = Forms("凭证").Controls("Table1")

Dim tbl As Table = fbl.Table

tbl.DataSource = DataTables("序时账簿01")

tbl.SetColVisibleWidth("摘要|100|对方单位|120|项目名称|120|科目一级|80|科目明细|100|借方|90|贷方|90")

tbl.Cols("科目明细").DropForm = "凭证科目选择"

tbl.Filter = "凭证编号 = \'" & dr("凭证号") & "\'"

Dim Drx As Double

Dim Crx As Double

drx = tbl.DataTable.SQLCompute("Sum(借方)","凭证编号=\'" & dr("凭证号") & "\'")

crx = tbl.DataTable.SQLCompute("Sum(贷方)","凭证编号=\'" & dr("凭证号") & "\'")

Dim LaDr As WinForm.Label = Forms("凭证").Controls("labJF")

Dim LaCr As WinForm.Label = Forms("凭证").Controls("labDF")

Dim Ddx As WinForm.Label = Forms("凭证").Controls("labDX")

ladr.Text = format(drx,"C")

lacr.Text = format(crx,"C")

ddx.Text = "人民币: " & cumoney(drx)

Dim bm As WinForm.Label = Forms("凭证").Controls("labbm")

Dim rq As WinForm.Label = Forms("凭证").Controls("labrq")

Dim vo As WinForm.Label = Forms("凭证").Controls("labvo")

Dim zd As WinForm.Label = Forms("凭证").Controls("labzd")

Dim sh As WinForm.Label = Forms("凭证").Controls("labsh")

Dim Butnadd As WinForm.Button = Forms("凭证").Controls("Butnadd1")

butnadd.Visible = False

bm.Text = drr("部门单位")

rq.Text = format(drr("日期"),"yyyy年MM月dd日")

vo.Text = drr("凭证编号")