以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 报价单生成订单功能  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=71095)

--  作者:logicsun
--  发布时间:2015/7/4 19:43:00
--  [求助] 报价单生成订单功能
正在试做一款进销存软件。 
其中有 1.报价模块(含报价总表,报价明细表。通过报价单单号关联) 2.订单模块  (含:订单总表,订单明细表。通过订单号关联)。 其中 订单部分是有自动编码的(在 addnew事件里面)
想通过单击 按钮,直接把选中报价单 自动生成 销售订单,求助,该功能如何实现?   
[此贴子已经被作者于2015/7/5 0:40:15编辑过]

--  作者:yan2006l
--  发布时间:2015/7/4 21:03:00
--  

复制

当然用代码的那种


--  作者:大红袍
--  发布时间:2015/7/5 9:25:00
--  

 参考 http://www.foxtable.com/help/topics/1534.htm

 


--  作者:logicsun
--  发布时间:2015/7/5 18:33:00
--  
以下是引用大红袍在2015/7/5 9:25:00的发言:

 参考 http://www.foxtable.com/help/topics/1534.htm

谢谢袍老师,你这边引用的链接 是自定义录入,和我的需求相去甚远。

我希望将报价单 完整复制到 订单里面 。 比如说现在有一份报价单 报价总表有一行数据,报价明细表里面有5行关联数据。 我希望 能通过按钮功能 直接将报价总表的数据复制到 订单总表(订单数据表新增一行数据),同时订单明细表对应生成与订单总表相关联的5行新数据。  报价表 与订单表 的addnew时间里面 都预先设置了新增行自动编号功能。 

希望能系统的指导一下,或者帮忙理清一下思路。


--  作者:czy
--  发布时间:2015/7/5 19:42:00
--  
在报价总表中增加一个逻辑列,命名为“生成订单”
在报价明细中增加一个逻辑列,命名为“生成订单”
报价总表DataColChanged事件代码:

If e.DataCol.name = "生成订单"
    For Each dr As DataRow In e.DataRow.GetChildRows("报价明细")
        dr("生成订单") = e.DataRow("生成订单")
    Next
End If

生成订单前先在报价总表的生成订单列中打钩
按钮代码:

Dim f As New Filler
f.SourceTable = DataTables("报价总表") \'指定数据来源
f.DataTable = DataTables("订单") \'指定数据接收表
f.Filter = "生成订单 = true"
f.Fill() \'填充数据

f.SourceTable = DataTables("报价明细") \'指定数据来源
f.DataTable = DataTables("订单明细") \'指定数据接收表
f.Filter = "生成订单 = true"
f.Fill() \'填充数据
[此贴子已经被作者于2015/7/5 19:53:21编辑过]