主题：[求助]修改后台数据

dh.Save 一下才行。

If e.DataCol.Name = "确认缴费" Then
    If  e.DataRow("确认缴费") = True Then
        Dim nma() As String = {"收费部门","科室单号","开单人","缴费人","缴费方式","记账担保人","确认缴费"}
       
        Dim nmb() As String = {"收费部门","科室单号","开单人","缴费人","缴费方式","记账担保人","确认缴费"}
        Dim dh As  DataRow = DataTables("收费登记表").Find("[科室单号] = '" & e.DataRow("科室单号") & "'")
        If dh Is Nothing Then
            dh = DataTables("收费登记表").SQLFind("[科室单号] = '" & e.DataRow("科室单号") & "'")
            If dh Is Nothing Then
                dh = DataTables("收费登记表").AddNew()
            End If
        End If
        For i As Integer = 0 To nma.Length - 1
            dh(nmb(i)) = e.DataRow(nma(i))
        Next
        dh.save
    End If
End If

DataTables("收费登记表").DeleteFor("[科室单号] = '" & e.DataRow("科室单号") & "'")

DataTables("收费登记表").SqlDeleteFor("[科室单号] = '" & e.DataRow("科室单号") & "'")

报什么错？

看看你 beforeDeletedataRow、DataRowDeleting等事件写了什么代码，注释掉。