新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 Private Sub m_ListInterface_MenuBarClick(ByVal BOSTool As K3ClassEvents.BOSTool, Cancel As Boolean) Dim lBillerID As Long Dim strSQL As String  Select Case BOSTool.ToolName  Case "mnuEditDelete", "mnuEditModify"        strSQL = "Select FBiller（当前单据制单人） From t_Sales（当前单据主表名） Where FID（当前单据主键子段）=" & m_ListInterface.GetCurrentSelRowInfo("FID")         lBillerID = m_ListInterface.K3Lib.GetData(strSQL)(0)         If m_ListInterface.K3Lib.User.UserID <> lBillerID Then              MsgBox "只能删除和修改本人的单据", vbExclamation, "提示"               Cancel = True        End If Case Else End Select End Sub 返回 保存