sbo中怎么不通过linkbutton跳出来指定的应付发票

结果是调用菜单的
sbo允许直接操作form(不同于winform，比较简单）

 Sub ShowPIForm(ByVal piDocNum As String)
        NstAddon.SBO_Application.ActivateMenuItem("2308")
        Dim PIForm As Form = SBO_Application.Forms.GetFormByTypeAndCount("141", 1)
        PIForm.Mode = BoFormMode.fm_FIND_MODE
        PublicFunction.SetFormItemValue(PIForm, "8", piDocNum)
        PIForm.Items.Item("1").Click(BoCellClickType.ct_Regular)
    End Sub