主题：多人同时操作时

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

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

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

 

 DataTables("出货单").Load

我上面也说了先同步,但如果没有先同步,则出货表就会产生重复的记录,处理重复行的代码如何写?

参考：http://www.foxtable.com/webhelp/scr/2712.htm

 

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