主题：麻烦检查一下这段代码有没有错

 报错？

If Tables("skdjb").count > 0 Then
    If e.DataCol.Name = "khmc" Then
        Dim a As DataRow = e.DataRow
        Dim b As String = e.OldValue
        Dim dr As DataRow = DataTables("skdjb").Find("khmc = '" & b & "'","zzrq desc")
        If dr IsNot Nothing Then
            If e.NewValue = dr("khmc") Then
                e.DataRow("qykje") = dr("bcyk")
            End If
        End If
    End If
End If