文档介绍：如何在工具栏上添加多级审核的按钮?
在m_BillInterface_MenuBarInitialize事件里添加如下代码即可。
Set oTool = ("mnuEditMultiCheck")
With oTool
.Caption = "多级审核"
.ToolTipText = "多级审核"
.Description = "多级审核"
.BeginGroup = False
.ToolPicture = + "\"
.SetPicture 0, vbButtonFace
End With
Set oBand = ("BandToolBar")
"mnuFilePrint", oTool '将菜单对象插入指定工具栏
如何在显示一张Bos单据的同时给它赋值?
要想在显示Bos单据的同时给它赋值,关键是在显示前要购建m_Billinterface的data包,这样在显示这张同据的时候,程序会解析data包,并将里面的值赋到单据界面上来。
Dim dctData As
Dim datasrv as object
Dim oTableinfo as object
Set DataSrv = ("")
= lClassTypeID 'lClassTypeID 需要弹出单据的ID
Set oTableInfo =
Set dctData = '然后将当前单据数据包中需要的数据填充到dctdata的对应字段
' 在以上语句执行后,dctdata(“page2”)里只有一行表结构(即表体只有一行)
'赋表头的值
dctData("Page1")(oTableinfo("map")("FText"))("FFLD") = ("FText")
dctData("Page1")(oTableinfo("map")("FDeptID"))("FFLD") = ("FDeptID", -1, Enu_ValueType_FFLD)
dctData("Page1")(oTableinfo("map")("FDeptID"))("FFND") = ("FDeptID", -1, Enu_ValueType_FFND)
dctData("Page1")(oTableinfo("map")("FDeptID"))("FDSP") = ("FDeptID", -1, Enu_ValueType_FDSP