主题：关于订单管理问题

我有  产品库  订单明细

  

产品库 我通过复选框选择好我需要的数据

 

通过当前所显示的数据  在 订单明细表   生成新的订单号 并将 产品库 的数据复制到 订单明细表

 

该怎样做

请高手赐教

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

确认订单函数不会写

Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(订单号)","[_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
    idx = CInt(max) + 1 '获得最大编号的后三位顺序号,并加1
Else
    idx = 1 '否则顺序号等于1
End If
e.DataRow("订单号") = Format(idx,"00000")

 

 

此主题相关图片如下：qq截图20140403102601.png

 

这个是顺序编号   我想要这一次所选的数据 只生成一个订单编号  不是截图这种  需要怎样呢

此主题相关图片如下：qq截图20140403102850.png

谢谢就是这样