以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  数据调用不出来  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75053)
--  作者：huazhencong
--  发布时间：2015/9/25 13:15:00
--  数据调用不出来
请教：我试着在仓库账簿的表datacolchanged事件里面编写如下代码：

Select Case e.DataCol.name
    Case "商品简码" \'根据商品简码提取商品信息作为仓库账簿的基础数据
    Dim dr As DataRow = DataTables("商品信息").Find("商品简码 = \'" & e.DataRow("商品简码") & "\'")
    If dr IsNot Nothing 
        e.DataRow("商品名称") = dr("商品名称")
        e.DataRow("商品编码") = dr("商品编码")
        e.DataRow("商品类别") = dr("商品类别")
        e.DataRow("品牌") = dr("品牌")
        e.DataRow("规格") = dr("规格")
        e.DataRow("单位") = dr("单位")
    End If
    Case "商品简码" \'根据商品简码提取盘点表的盘点数据作为仓库账簿的期初数据  ？这一步怎么数据出不来
    Dim dr1 As DataRow = DataTables("盘点单").Find("商品简码 = \'" & e.DataRow("商品简码") & "\'")
    If dr1 IsNot Nothing 
        e.DataRow("期初库存_箱数") = dr1("箱数")
        e.DataRow("期初库存_数量") = dr1("数量")
        e.DataRow("期初库存_金额") = dr1("金额")
    End If
End Select
--  作者：huazhencong
--  发布时间：2015/9/25 13:29:00
--  
刚测试了，我把2段代码单独分开是能实现的，合在一起就不行了，咋回事啊！
--  作者：Hyphen
--  发布时间：2015/9/25 13:32:00
--  
Select Case e.DataCol.name
Case "商品简码" \'根据商品简码提取商品信息作为仓库账簿的基础数据
Dim dr As DataRow = DataTables("商品信息").Find("商品简码 = \'" & e.DataRow("商品简码") & "\'")
If dr IsNot Nothing
e.DataRow("商品名称") = dr("商品名称")
e.DataRow("商品编码") = dr("商品编码")
e.DataRow("商品类别") = dr("商品类别")
e.DataRow("品牌") = dr("品牌")
e.DataRow("规格") = dr("规格")
e.DataRow("单位") = dr("单位")
End If
 
Dim dr1 As DataRow = DataTables("盘点单").Find("商品简码 = \'" & e.DataRow("商品简码") & "\'")
If dr1 IsNot Nothing
e.DataRow("期初库存_箱数") = dr1("箱数")
e.DataRow("期初库存_数量") = dr1("数量")
e.DataRow("期初库存_金额") = dr1("金额")
End If
End Select
--  作者：huazhencong
--  发布时间：2015/9/25 13:38:00
--  
喔，原来是这样，谢谢啦！