主题：[求助]按钮代码与事件代码冲突

Select Case e.DataCol.name    '如果列值变动,写入数据表数据
    Case "借卷日期","二审退卷日期" ,"移送日期"
        Dim dr = DataTables("数据表").Find("[案号] = '" & e.DataRow("案号") & "'")
       
        If dr IsNot Nothing Then
            dr("二审上诉_调卷日期") = e.DataRow("借卷日期")
            dr("二审上诉_退卷日期") = e.DataRow("二审退卷日期")
            dr("二审上诉_上诉日期") = e.DataRow("移送日期")      
        End If
End Select