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

老师，我的这段代码如果要找的行存在的话，不能执行修改，不知错在哪里。请指点。谢谢！

代码写在表A的DataColChanged 中

If e.DataCol.Name = "确认缴费" Then
    If  e.DataRow("确认缴费") = True Then
        Dim nma() As String = {"收费部门","科室单号","开单人","缴费人","缴费方式","记账担保人","确认缴费"} 

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