'BillType 单据类型ID

'BillID 单据内码

'bEdit 调出的附件界面是否可编辑

'lPage 单据头或单据体附件 1:表示单据头，2:表示单据体1,3:表示单据体2,依此类推。。。

'lEntryId 分录行ID

Public Function ViewAccessory(ByVal BillType As Long, _

                              ByVal BillID As Long, _

                              ByVal bEdit As Boolean, _

                              Optional ByVal lPage As Long = 1, _

                              Optional ByVal lEntryId As Long = 0) As Boolean

lBillType = m_BillInterface.ClassType("FID")

lBillID = m_BillInterface.Data("FID")

'可自行根据单据状态判断是否可修改 0表示查看，1表示新增，2表示修改

bEdit = (m_BillInterface.BillStatus <> 0)

'比如编辑单据头附件

lPage = 1

lEntryId = 0

m_BillInterface.BillCtl.ViewAccessory lBillType, lBillID, bEdit, lPage, 0

'编辑单据体1的附件

lPage = 2

lRow = 3 '比如当前光标在第三行

lEntryId = m_BillInterface.Data("Page" & lPage)(lRow)("FEntryId") '获取单据分录ID

m_BillInterface.BillCtl.ViewAccessory lBillType, lBillID, bEdit, lPage, lEntryId

Private Sub cmdOpenAccessory_Click()

    '单据头附件查看,可编辑

    Call ViewAccessory(200000007, 1002, True)

    '单据体附件插件，可编辑

    Call ViewAccessory(200000007, 1002, True, 2, 3) '第一个单据体的第三行的附件

End Sub