老师，这代码哪儿有问题，执行到3就报错，3出来了，4不出来，同一个事件，其他一样逻辑的代码，就不报错

\'勾选到业绩管理
If e.DataCol.Name  = "审批状态"
    If e.DataRow("审批状态") = "已审批完成" Then
        Dim dt As DataTable
        msgbox(1)
        Dim cmd As New SQLCommand
        cmd.C
        msgbox(2)
        cmd.CommandText = "S  ELECT * From {业绩管理}"
        msgbox(3)
        dt = cmd.ExecuteReader(True)
        msgbox(4)
        Dim dr As DataRow = dt.Find("项目编码 = \'" & e.DataRow("项目编码") & "\'")
        msgbox(5)
        If dr Is Nothing Then  \'如果没有找到的话
            Dim nma() As String = { "项目编码","合同编码","所属机构","项目类别","项目名称","合同金额","合同工期","开工日期","竣工日期","项目经理","项目总工" }
            Dim nmb() As String = { "项目编码","合同编码","所属机构","项目类别","项目名称","合同金额","合同工期","开工日期","竣工日期","项目经理","项目总工" }
            Dim dr1 As DataRow = dt.AddNew
            For i As Integer = 0 To nma.Length - 1
                dr1(nmb(i)) = e.DataRow(nma(i))
            Next
            dr1.save
        Else
            dr("合同编码") = e.DataRow("合同编码")
            dr("合同金额") = e.DataRow("合同金额")
            dr("合同工期") = e.DataRow("合同工期")
            dr("开工日期") = e.DataRow("开工日期")
            dr("竣工日期") = e.DataRow("竣工日期")
            dr("项目经理") = e.DataRow("项目经理")
            dr("项目总工") = e.DataRow("项目总工")
            dr.save
        End If
    End If
End If

没有哦，只有一个数据库，换这样写不报错，不过之前报错的一直没找到原因，折腾一下午！

        cmd.CommandText = "S elect [_Identify],项目编码,合同编码,所属机构,项目类别,项目名称,合同金额,合同工期,开工日期,竣工日期,项目经理,项目总工 From {业绩管理}" \'注意要包括主键列

这样的代码在同一个事件里面，用了多遍更新到不同的表，只是引用的列不一样，就这一段报错。