主题：关于模拟关联的问题请教

我在“费用列表窗口”中绑定了一个"费用报销单“的表（副表）

我要在列表 （副表）上通过双击打开一个费用报销单（包含明细表），明细通过模拟关联和费用报销单建立了模拟关联

费用报销单（包含明细表），的窗口上有一个”上一条“和”下一条“的按钮，想通过按钮来查看。可是明细不会筛选如图，

 

报销单列表窗口的记录通过左边的目录树帅选得到的

 

Dim Previous As WinForm.Button = e.Form.Controls("Previous")   ' 定义上一条按钮
Dim Under As WinForm.Button = e.Form.Controls("under")   ' 定义下一条按钮

With Tables(feiybxname)   ‘ 这个是双击"费用报销单“表（副表）带过来的变量
    .Position = .Position - 1
   
    If  .Position =0  Then    ' 最上一条记录
        Previous.Enabled=False   ' 上一条的按钮失效
    '     MessageBox.Show("最上一条了", "提示", MessageBoxButtons.OK)
    Else
        Under.Enabled=True   ' 下一条的按钮有效
    End If
   
End With

 

 

模拟代码如下

 

费用报销单的  CurrentChanged

MainTable = Tables("费用报销单") '打开主表
If Forms("费用报销单").Opened Then
    Dim t As Table = Tables("费用报销单_Table1")   ’ 费用报销明细表
    With Tables(feiybxname)      

     
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.filter ="单据编号 ='" & .current("单据编号") & "'"
        End If
    End With
End If

 

 

 

 

此主题相关图片如下：gliang.jpg

双击一条记录的时候明细会出来就是上一条和下一条在currentchanged上的代码好像不会扏行