主题：[求助]

此主题相关图片如下：360软件小助手截图20140616163050.png

又变成这样了

你浏览器有问题吧,清一下缓存看看,我看你帖子都没问题的,另外你代码没有问题,可能是没有对应的编号的行.

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:蓝峰管理.table

测试没有问题啊? 你的问题是什么?

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

谢谢好了