以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  智能输入问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=18530)
--  作者：qq1328150994
--  发布时间：2012/4/16 16:28:00
--  智能输入问题


 

 

我想通过采购订单的第一列（商品编号）调出商品条码、商品名称等等     看了N久的案例，感觉上一模一样了，但还是不出现效果。跪求高手解答！

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:我的项目文件_0416.zip

 

 

 

确实发错了。。晕！！头都晕了！多谢老爹！

[此贴子已经被作者于2012-4-16 17:16:23编辑过]
--  作者：qq1328150994
--  发布时间：2012/4/16 16:33:00
--  
自己先顶起先
--  作者：xongyijd
--  发布时间：2012/4/16 16:39:00
--  
没有采购订单表呀？
--  作者：qq1328150994
--  发布时间：2012/4/16 16:40:00
--  
以下是引用xongyijd在2012-4-16 16:39:00的发言：
没有采购订单表呀？

表的名称就是采购订单

 
--  作者：qq1328150994
--  发布时间：2012/4/16 16:59:00
--  

继续在线等高手！
--  作者：狐狸爸爸
--  发布时间：2012/4/16 17:08:00
--  

你是不是发错文件了？

你发上来的文件，根本就没有名为采购订单的表。
--  作者：qq1328150994
--  发布时间：2012/4/16 17:17:00
--  
以下是引用狐狸爸爸在2012-4-16 17:08:00的发言：

你是不是发错文件了？

你发上来的文件，根本就没有名为采购订单的表。

确实发错了。晕！头都被整大了。。刚刚换了
--  作者：blackzhu
--  发布时间：2012/4/16 18:01:00
--  
If e.DataCol.Name="第一列" Then
    Dim dr As DataRow
    dr = DataTables("商品属性").Find("商品编号 =\'" & e.DataRow("第一列") & "\'")
    If dr IsNot Nothing Then
        e.DataRow("第二列")=dr("商品条码")
    Else
        e.DataRow("第二列") = Nothing
    End If
End If
--  作者：qq1328150994
--  发布时间：2012/4/16 18:12:00
--  
以下是引用blackzhu在2012-4-16 18:01:00的发言：
If e.DataCol.Name="第一列" Then
    Dim dr As DataRow
    dr = DataTables("商品属性").Find("商品编号 =\'" & e.DataRow("第一列") & "\'")
    If dr IsNot Nothing Then
        e.DataRow("第二列")=dr("商品条码")
    Else
        e.DataRow("第二列") = Nothing
    End If
End If

从哪里去修改这个啊？能否发个更新版本上来参考下！谢谢！

[此贴子已经被作者于2012-4-16 18:12:36编辑过]
--  作者：blackzhu
--  发布时间：2012/4/16 19:06:00
--  
放在表事件的

DataColChanged

中执行