Foxtable(狐表)用户栏目专家坐堂 → 一个商品信息如何判定是添加到入库明细表还是出库明细表


  共有3690人关注过本帖树形打印复制链接

主题:一个商品信息如何判定是添加到入库明细表还是出库明细表

帅哥哟,离线,有人找我吗?
g1j2h3
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:390 积分:4650 威望:0 精华:0 注册:2016/4/30 10:41:00
一个商品信息如何判定是添加到入库明细表还是出库明细表  发帖心情 Post By:2020/3/1 10:41:00 [只看该作者]

一个商品信息表,选定商品行后,如何判定是添加到入库明细表还是出库明细表
下边这段代码如何修改:
Dim Vals As List(of String())
Vals = DataTables("老商品增加_Table2").GetValues("商品编号|商品名称|规格型号|单位|数量|单价|备注")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As Row = Tables("入库主表.入库明细").AddNew()
    dr("商品编号") = Vals(i)(0)
    dr("商品名称") = Vals(i)(1)
    dr("规格型号") = Vals(i)(2)
    dr("单位") = Vals(i)(3)
    dr("数量") = Vals(i)(4)
    dr("单价") = Vals(i)(5)
    dr("备注") = Vals(i)(6)
Next
Forms("老商品增加").Close()
在入库单和出库单增加商品时,都要用到下边这个"老商品增加"窗口,在选择完商品后,"确定",代码怎么写,若时从入库单打开的"老商品增加"窗口,就把所选商品添加到入库明细表中,若是从出库单打开"老商品增加"窗口,就把所选商品添加到出库明细表中。

图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20200302073533.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/3/2 7:43:07编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/1 21:37:00 [只看该作者]

没看懂。要添加到哪个表不是操作人员的选择吗?

 回到顶部
帅哥哟,离线,有人找我吗?
g1j2h3
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:390 积分:4650 威望:0 精华:0 注册:2016/4/30 10:41:00
  发帖心情 Post By:2020/3/2 8:06:00 [只看该作者]

麻烦老师再看下,我是否已表达清楚

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111411 积分:567125 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/2 8:48:00 [只看该作者]

"老商品增加"窗口是什么类型?独立窗口?还是下拉窗口?

如果是独立窗口,打开前使用全局代码记录一下,比如

入库明细按钮
vars("单据") = "入库主表.入库明细"
forms("老商品增加").open

库明细按钮
vars("单据") = "库主表.库明细"
forms("老商品增加").open


添加数据时
Dim dr As Row = Tables(vars("单据")).AddNew()

 回到顶部
帅哥哟,离线,有人找我吗?
g1j2h3
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:390 积分:4650 威望:0 精华:0 注册:2016/4/30 10:41:00
  发帖心情 Post By:2020/3/2 10:12:00 [只看该作者]

非常感谢老师的指导,问题终于解决了


 回到顶部