以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  多人同时操作时  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103835)
--  作者：实话实说
--  发布时间：2017/7/18 11:18:00
--  多人同时操作时

以下业务流程是在完工表中勾选"发货"后将该行记录转移动出货表.
当多人同时操作时,出货表可能会产生重复的记录,现在的操作是勾选前先同步表,勾选后按"转到发货单"按钮再即时保存,人为因素难免按规定操作,能将这些操作集成到下面代码吗?

转到发货单_Click
Dim f As New Filler
f.SourceTable = DataTables("完工单") \'指定数据来源
f.SourceCols = "下单时间,送货地址,材料代码,型号规格,颜色,单位,送货数量,需求日期,备注" \'指定数据来源列
f.DataTable = DataTables("出货单") \'指定数据接收表
f.DataCols = "下单时间,送货地址,材料代码,型号规格,颜色,单位,送货数量,需求日期,备注" \'指定数据接收列
f.Filter = "[发货] = True"
f.Distinct = False \'允许重复
f.Fill() \'填充数据
--  作者：有点甜
--  发布时间：2017/7/18 12:44:00
--  

  执行操作之前，先同步表呗。

 

 DataTables("出货单").Load
--  作者：实话实说
--  发布时间：2017/7/18 13:21:00
--  
我上面也说了先同步,但如果没有先同步,则出货表就会产生重复的记录,处理重复行的代码如何写?
--  作者：有点蓝
--  发布时间：2017/7/18 14:13:00
--  
参考：http://www.foxtable.com/webhelp/scr/2712.htm
--  作者：有点甜
--  发布时间：2017/7/18 14:42:00
--  
以下是引用实话实说在2017/7/18 13:21:00的发言：
我上面也说了先同步,但如果没有先同步,则出货表就会产生重复的记录,处理重复行的代码如何写?

 

先同步，用2楼代码，再执行你自己的代码。代码合并在一起不就好了？

[此贴子已经被作者于2017/7/18 14:42:17编辑过]