以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  BUG收集  (http://foxtable.com/bbs/list.asp?boardid=12)
----  帮助:自动输入的实现中的错误  (http://foxtable.com/bbs/dispbbs.asp?boardid=12&id=2395)
--  作者：yangming
--  发布时间：2009/4/11 10:16:00
--  帮助:自动输入的实现中的错误
 

If e.DataCol.Name = "产品编号" Then \'发生变化的是产品名称吗?
    \'在产品表找出该产品
    Dim dr As DataRow = DataTables("产品").Find("编号 = " & "\'" & e.DataRow("产品编号") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("品名")= dr("品名")
        e.DataRow("型号")= dr("型号")
        e.DataRow("规格")= dr("规格")
    End If
End If



上面黄色背景中的应该是产品编号
--  作者：狐狸爸爸
--  发布时间：2009/6/3 17:24:00
--  
搞定