以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52456)
--  作者：风声
--  发布时间：2014/6/16 15:46:00
--  [求助]代码

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

 

 

老师，我这个代码好像没有用。问题出在那一段
--  作者：Bin
--  发布时间：2014/6/16 15:48:00
--  
是不是 通信表没有 对应的企业编号的行.