-- 作者: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

|