主题：提示“e”错误，是不是版本问题呀？

If e.DataCol.Name = "合同编号" Then '发生变化的是合同编号吗?

    Dim dr As DataRow

    dr = DataTables("合同档案").Find("合同编号 = " & "'" & e.DataRow("合同编号") & "'" )

    If dr IsNot Nothing '如果找到, 则设置各列内容

        e.DataRow("项目名称")= dr("项目名称")

        e.DataRow("客户名称")= dr("客户名称")

        e.DataRow("分公司")= dr("分公司")

        e.DataRow("合同金额")= dr("合同金额")

    End If

End If