在报表控件的DrillDownSubreport事件中处理
Private Sub CrystalReportViewer1_DrillDownSubreport(ByVal source As Object, ByVal e As CrystalDecisions.Windows.Forms.DrillSubreportEventArgs) Handles CrystalReportViewer1.DrillDownSubreport
MsgBox("NO")
e.Handled = True
End Sub