Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> VBA  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702811
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

如何递增一个字符串中的数字部分?

作者:cg1  摘自:access911.net  :cg1  更新日期:2002-11-21  浏览人次:

 

问题:

递增一个字符串中的数字部分 

我有一个字段,包含这样的格式:"REC-1", "REC-2", "REC-3" 等. 当新增一条记录时,我如何让这个字段的数字部分自动加1呢(下一条记录应为REC-4)

 

回答:

使用Right及DMax函数返回字段“FOO”的数字部分的最大值,然后加1
表达式为:
="REC-" & right(DMax("FOO", "FOOTable"), _
Len(DMax("FOO", "FOOTable")) - _
InStr(1, DMax("FOO", "FOOTable"), "-")) + 1

注意:但如果很多用户或多个程序都使用DMax去实现这个结果的话,特别在一个很大的表中这个过程会很慢,所以建议使用DefaultValue,它仅仅使用DMax一次
程序如下,写在更新事件中
Private Sub SomeField_AfterUpdate()
    Dim strMax as string
    strMax =DMax("FOO", "FOOTable")
    me!HiddenFooCtl = "REC-" & right(strMax, _
    len(strMax) - _
    Instr(1,strMax, "-")) +1
End Sub


 

 


 

 
相关文章
     没有手动相关文章
     mdb中如何建立不间断行号
     如何用代码在“默认值”里实现自动编号?单据流水号生成问题。
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利