以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于订单管理问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48677)

--  作者:yifan3429
--  发布时间:2014/4/3 9:54:00
--  关于订单管理问题

我有  产品库  订单明细

  

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

 

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

 

该怎样做

请高手赐教

[此贴子已经被作者于2014-4-3 9:55:16编辑过]

--  作者:Bin
--  发布时间:2014/4/3 9:56:00
--  
请问你要如何生成新的订单号?  能上个例子会比较好.
--  作者:yifan3429
--  发布时间:2014/4/3 10:05:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table

确认订单函数不会写
--  作者:Bin
--  发布时间:2014/4/3 10:13:00
--  
你的表并无复选框, 你指的复选框是筛选树的复选框吗?

选择后把所有筛选出来的数据,移到订单明细,并且自动生成编号吗?

--  作者:Bin
--  发布时间:2014/4/3 10:20:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (1).table


--  作者:yifan3429
--  发布时间:2014/4/3 10:30:00
--  

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
图片点击可在新窗口打开查看
[此贴子已经被作者于2014-4-3 10:30:53编辑过]

--  作者:Bin
--  发布时间:2014/4/3 10:34:00
--  
.
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1 (1).table


--  作者:yifan3429
--  发布时间:2014/4/3 10:38:00
--  
谢谢就是这样