Foxtable(狐表)用户栏目专家坐堂 → 新手,如何每增加一行出现一个带字母前缀的编号,不用表达式


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

主题:新手,如何每增加一行出现一个带字母前缀的编号,不用表达式

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/5 8:42:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/5 8:55:00 [显示全部帖子]

 你直接在DataRowAdded事件加入代码

 

  e.Datarow("第一列") = "AAA" & e.Datarow("_Identify")


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/7 9:30:00 [显示全部帖子]

 如下代码

 

Dim bh As String = "FA"
Dim idx As Integer = 1
Dim max As String = e.DataTable.Compute("Max(编号)","编号 like '" & bh & "*' and [_Identify] <> " & e.DataRow("_Identify"))
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
End If
e.DataRow("编号") = bh & Format(idx,"000")

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/7 10:48:00 [显示全部帖子]

Dim bh As String = "FA"
Dim idx As Integer = 1
Dim max As String = e.DataTable.Compute("Max(编号)","编号 like '" & bh & "*' and [_Identify] <> " & e.DataRow("_Identify"))
If max > "" Then '如果存在最大编号
    idx = CInt(max.Substring(4,3)) + 1 '获得最大编号的后三位顺序号,并加1
End If
e.DataRow("编号") = bh & Format(idx,"00000")

 回到顶部