Foxtable(狐表)用户栏目专家坐堂 → 销售明细表中如何自动产生顺序号?


  共有8918人关注过本帖树形打印复制链接

主题:销售明细表中如何自动产生顺序号?

帅哥哟,离线,有人找我吗?
jinruan
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
销售明细表中如何自动产生顺序号?  发帖心情 Post By:2012/12/17 17:06:00 [只看该作者]

销售明细表中如何自动产生顺序号?
如图示:

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
jinruan
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/12/17 17:15:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/17 17:16:00 [只看该作者]

 首先,定义成数值类型。

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

 回到顶部
帅哥哟,离线,有人找我吗?
jinruan
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/12/17 17:25:00 [只看该作者]

string 型与  Integer 怎样相互转换呢

 回到顶部
帅哥哟,离线,有人找我吗?
jinruan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By:2012/12/17 17:26:00 [只看该作者]

如:
顺序号
1
2
3
98
转换为:
001
002
003
098

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/12/17 17:32:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
jinruan
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:198 积分:1448 威望:0 精华:0 注册:2011/8/23 17:38:00
  发帖心情 Post By: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

感谢,这样可以了

 回到顶部