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

With DataTables("订单明细")

.LoadFilter = ""

.LoadTop = 20

.LoadPage = 0

.Load()

End With

With DataTables("订单明细")

If .LoadPage < .TotalPages - 1 Then

.LoadPage = .TotalPages - 1

.Load()

End If

End With

点击按钮1，然后点击窗口1的订单表是正常追加数据的（点击一个订单会追加同一个编号的订单明细），订单表 currentchanged：

If e.Table.current IsNot Nothing Then

Dim dr As DataRow = e.Table.Current.DataRow

If dr IsNot Nothing Then

Dim wz As Integer = Tables("订单").FindRow(dr)

If wz >=0 Then

Tables("订单").Position = wz

End If

Dim Filter As String = "订单编号 = \'" & e.Table.Current("订单编号") & "\'"

If DataTables("订单明细").Find(filter) Is Nothing Then

DataTables("订单明细").AppendLoad(filter)

End If

但是如果把按钮1的代码放到窗口2的afterload里面，则会不正常，点击窗口1的订单表，追加数据有时候是2行（其中一个订单编号是一致的，另外一个编号毫不相关），有时候是一行，大多数是2行。不知道哪里出问题了？