以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  销售明细表中如何自动产生顺序号?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=26930)

--  作者:jinruan
--  发布时间:2012/12/17 17:06:00
--  销售明细表中如何自动产生顺序号?
销售明细表中如何自动产生顺序号?
如图示:

图片点击可在新窗口打开查看此主题相关图片如下:668888.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2012-12-17 17:06:36编辑过]

--  作者:jinruan
--  发布时间:2012/12/17 17:15:00
--  
论坛中找到帖子了,先看看
--  作者:lin_hailun
--  发布时间:2012/12/17 17:16:00
--  
 首先,定义成数值类型。

 Dim max As Integer = Tables("xxx").Compute("max(顺序号)") + 1

--  作者:jinruan
--  发布时间:2012/12/17 17:25:00
--  
string 型与  Integer 怎样相互转换呢
--  作者:jinruan
--  发布时间:2012/12/17 17:26:00
--  
如:
顺序号
1
2
3
98
转换为:
001
002
003
098

--  作者:lin_hailun
--  发布时间:2012/12/17 17:32:00
--  
 http://www.foxtable.com/help/topics/0361.htm
--  作者:jinruan
--  发布时间:2012/12/17 17:52:00
--  
Dim n As Integer = Tables("销售订单").Current("销售订单id")
Dim r As DataRow = DataTables("销售明细").AddNew
r("销售订单id") = n
Dim max As Integer = Tables("销售明细").Compute("max(项次)", "[销售订单id] = \'" & n & "\'" ) + 1
r("项次") = max

感谢,这样可以了