以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=52461)

--  作者:风声
--  发布时间:2014/6/16 16:32:00
--  [求助]

图片点击可在新窗口打开查看此主题相关图片如下:360软件小助手截图20140616163050.png
图片点击可在新窗口打开查看
又变成这样了
--  作者:Bin
--  发布时间:2014/6/16 16:34:00
--  
你浏览器有问题吧,清一下缓存看看,我看你帖子都没问题的,另外你代码没有问题,可能是没有对应的编号的行.

具体请上例子吧

--  作者:风声
--  发布时间:2014/6/16 16:58:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:蓝峰管理.table


--  作者:Bin
--  发布时间:2014/6/16 17:01:00
--  
测试没有问题啊? 你的问题是什么?



--  作者:有点甜
--  发布时间:2014/6/16 17:02:00
--  
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

--  作者:风声
--  发布时间:2014/6/16 17:50:00
--  
谢谢好了