主题：[求助]代码

If e.DataCol.Name = "企业编号" Then '发生变化的是产品编号吗?
    '在产品表找出该产品
    Dim dr As DataRow
    dr = DataTables("通信").Find("企业编号 = '" & e.DataRow("企业编号") & "'" )
    If dr IsNot Nothing '如果找到, 则设置各列内容
        e.DataRow("供应商")= dr("客户供应商")
    End If
End If

老师，我这个代码好像没有用。问题出在那一段