- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于订单管理问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=48677)
-- 发布时间：2014/4/3 9:54:00
-- 关于订单管理问题
我有 产品库 订单明细
产品库 我通过复选框选择好我需要的数据
通过当前所显示的数据 在 订单明细表 生成新的订单号 并将 产品库 的数据复制到 订单明细表
该怎样做
请高手赐教
[此贴子已经被作者于2014-4-3 9:55:16编辑过]
-- 发布时间：2014/4/3 9:56:00
--
请问你要如何生成新的订单号? 能上个例子会比较好.
-- 发布时间：2014/4/3 10:05:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
确认订单函数不会写
-- 发布时间：2014/4/3 10:13:00
--
你的表并无复选框, 你指的复选框是筛选树的复选框吗?
选择后把所有筛选出来的数据,移到订单明细,并且自动生成编号吗?
-- 发布时间：2014/4/3 10:20:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1 (1).table |
-- 发布时间：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编辑过]
-- 发布时间：2014/4/3 10:34:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目1 (1).table |
-- 发布时间：2014/4/3 10:38:00
--
谢谢就是这样