Foxtable(狐表)用户栏目专家坐堂 → 自动日期编号生成


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

主题:自动日期编号生成

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
自动日期编号生成  发帖心情 Post By:2008/9/2 11:47:00 [只看该作者]

要求:
一个[编号]列。以[日期]列为基础建立[编号]列。以前在易表里[编号]列用的刷新公式是:"0"+text(number(format([日期],"yymmdd00"))+CountFor(GridName,"日期","=",[日期],1,Row)),现在用FoxTable怎么做?

示例: 


 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目9_0902.zip


Foxtable本身已经有编号列“_Identify”,每增加一行递增1,所以代码原理很简单:

'如果发生变化的是日期列,而且已经输入日期
If e.DataCol.Name = "日期" And e.Datarow.IsNull("日期")  = False Then
    Dim dt As Date = e.DataRow("日期") '获得输入的日期
    '计算编号
    e.Datarow("编号") =  Format(dt,"yyMMdd") & Format(e.DataTable.Compute("Count(日期)", "[日期] = #" & dt & "# And [_identify] < " & e.DataRow("_Identify")) + 1,"000")
End If

[此贴子已经被作者于2008-9-2 11:56:41编辑过]

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


加好友 发短信
等级:婴狐 帖子:24 积分:316 威望:0 精华:0 注册:2008/9/1 11:17:00
  发帖心情 Post By:2008/9/2 18:42:00 [只看该作者]

哈哈  我的问题都上这了 腰不好 也顶


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


加好友 发短信
等级:婴狐 帖子:10 积分:162 威望:0 精华:0 注册:2008/8/31 22:11:00
  发帖心情 Post By:2008/9/2 21:33:00 [只看该作者]

我还是没有弄明白,如何实现的。但我发现如果是要生成不重复的自动编号,这个就不行了(编号生成后,在中间的某个行删掉,编号就会有重复的出现了)。


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2008/9/2 22:59:00 [只看该作者]

作为数据管理来说,这样的编码生成方式不好,最好就是用_identify,或手工输入。

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


加好友 发短信
等级:婴狐 帖子:7 积分:123 威望:0 精华:0 注册:2008/9/1 10:22:00
  发帖心情 Post By:2008/9/3 0:07:00 [只看该作者]

学习.

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


加好友 发短信
等级:婴狐 帖子:32 积分:277 威望:0 精华:0 注册:2008/9/1 9:55:00
  发帖心情 Post By:2008/9/3 13:20:00 [只看该作者]

学习了!

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


加好友 发短信
等级:婴狐 帖子:24 积分:316 威望:0 精华:0 注册:2008/9/1 11:17:00
  发帖心情 Post By:2008/9/3 15:50:00 [只看该作者]

以下是引用wzyeli在2008-9-2 21:33:00的发言:

我还是没有弄明白,如何实现的。但我发现如果是要生成不重复的自动编号,这个就不行了(编号生成后,在中间的某个行删掉,编号就会有重复的出现了)。

对 删除中间的行时会出现重复的。 我想还是用_identify 但现在还不是时候 。现在和我儿子一样一年级的小豆包。

[此贴子已经被作者于2008-9-3 15:51:43编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
东方楠木
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:11 积分:85 威望:0 精华:0 注册:2008/9/1 6:45:00
  发帖心情 Post By:2008/9/6 14:52:00 [只看该作者]

好好学习.天天向上。

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


加好友 发短信
等级:婴狐 帖子:12 积分:141 威望:0 精华:0 注册:2008/9/2 8:34:00
  发帖心情 Post By:2008/9/10 13:20:00 [只看该作者]

大家别笑我,我想问楼主那些代码在程序中的哪里可以看到啊

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


加好友 发短信
等级:婴狐 帖子:12 积分:141 威望:0 精华:0 注册:2008/9/2 8:34:00
  发帖心情 Post By:2008/9/10 13:21:00 [只看该作者]

好象示例中的编号不是表达式列啊,在其它--计算代码中也没有找到啊

 回到顶部
总数 11 1 2 下一页