| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 数据调用不出来 (http://www.foxtable.com/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 -- 喔，原来是这样，谢谢啦！ |