主题：点击按钮显示快捷菜单

设计的是系统菜单，不是窗口菜单，这是2种完全不同的用法，不能混用。

        Case "支付委托"

            For Each  r As Row In rs '逐行生成报表

Dim wrt As WordReport

Dim fl2 As String
                If r("是否使用工程款") = True Then
                    Dim tm As String  =  ProjectPath &  "Attachments\工料机支付委托书工程款.docx" '指定模板文件
                    Dim fl1 As String =  ProjectPath &  "Reports\工料机支付委托书工程款.docx" '指定目标文件
                    fl2 =  ProjectPath &  "Reports\工料机支付委托书工程款.pdf" '指定目标PDF文件
                    wrt = New WordReport(Tables("委托支付管理"),tm,fl1) '定义一个WordReport
                Else
                    Dim tm As String  =  ProjectPath &  "Attachments\工料机支付委托书.docx" '指定模板文件
                    Dim fl1 As String =  ProjectPath &  "Reports\工料机支付委托书.docx" '指定目标文件
                    fl2 =  ProjectPath &  "Reports\工料机支付委托书.pdf" '指定目标PDF文件
                    wrt = New WordReport(Tables("委托支付管理"),tm,fl1) '定义一个WordReport
                End If

                        wrt.BuildOne(r)
                        r.Checked =False
                    
                    wrt.SaveToPDF(fl2) '保存为PDF文件
                    wrt.Quit() '退出

Next

        End Select

使用的模板都不一样，怎么可以一个文件？至少2个文件

做筛选分2次处理，先筛选处理"是否使用工程款" = True的数据，然后在处理=false的数据

快捷菜单不要使用按钮

wrt.ReplaceOne("[否工程款]","□")