以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  一个商品信息如何判定是添加到入库明细表还是出库明细表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=146726)

--  作者:g1j2h3
--  发布时间: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编辑过]

--  作者:有点蓝
--  发布时间:2020/3/1 21:37:00
--  
没看懂。要添加到哪个表不是操作人员的选择吗?
--  作者:g1j2h3
--  发布时间:2020/3/2 8:06:00
--  
麻烦老师再看下,我是否已表达清楚
--  作者:有点蓝
--  发布时间:2020/3/2 8:48:00
--  
"老商品增加"窗口是什么类型?独立窗口?还是下拉窗口?

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

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

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


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

--  作者:g1j2h3
--  发布时间:2020/3/2 10:12:00
--  

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