以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于模拟关联的问题请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42386)

--  作者:vlladz
--  发布时间:2013/11/10 12:45:00
--  关于模拟关联的问题请教

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

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

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

 

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

 

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
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2013/11/10 19:57:00
--  
 看代码应该没错的,图片的数据也看不出不根据单据编号筛选哦。
--  作者:vlladz
--  发布时间:2013/11/10 20:24:00
--  
双击一条记录的时候明细会出来就是上一条和下一条在currentchanged上的代码好像不会扏行
--  作者:有点甜
--  发布时间:2013/11/10 20:30:00
--  
 用msgbox看一下不就行了?不行就做个例子上来。