金蝶KIS旗舰版7.0工业单据(老单)表单工具栏插入按钮

Private Sub m_BillTransfer_LoadBillEnd(ByVal ShowType As Long)

　　'TODO: 请在此处添加代码响应事件 LoadBillEnd

　　With m_BillTransfer.BillForm.tlbTool.Buttons
　　　　.Add .Count, "insert", "自动生成", , 24       '必须单独一行。24表示图片样式。
　　End With

End Sub

Private Sub m_BillTransfer_RetEvents(ByVal Para As KFO.IDictionary)

　　'If Para("EventID") = "Bill_ButtonClick" And Para("EventIDProp") = 1 Then  ' Para("EventIDProp") 点击审核时会报下标越界所以去掉

　　If Para("EventID") = "Bill_ButtonClick" Then
　　　　If Para("Para")("Button").Key = "insert" Then

　　　　　　..................................

　　　　End If
　　End If

End Sub