Foxtable(狐表)用户栏目专家坐堂 → [求助] 自动生成编号


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

主题:[求助] 自动生成编号

帅哥哟,离线,有人找我吗?
大红袍
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/27 16:29:00 [只看该作者]

以下是引用大红袍在2015/5/27 15:39:00的发言:
Tables("表A").Current("第二列") = Tables("表A").Current.DataRow.OriginalValue("第二列")

 

无法对对单元格进行撤销。代码的意思是,把值还原到上一次保存的值。

[此贴子已经被作者于2015/5/27 16:29:15编辑过]

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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/7/25 10:13:00 [只看该作者]

以下命令为什么到了1000就不会往上加数值呢?(我前期的位数只有3位、现在工单量多了才加到4位;是否跟这个有关系?是不是要把原来的全部改为4位)

 

Select e.DataCol.Name
    Case "申请项目类型","故障处理派单时间"
        If e.DataRow.IsNull("申请项目类型")  Or e.DataRow.IsNull("故障处理派单时间")  Then
            e.DataRow("故障处理编号") = Nothing
           
        Else
            'If e.DataRow("编号").StartsWith(bh) = False '如果单据编号前缀不符
            Dim max As String
            Dim idx As Integer
            Dim flt As String
            flt = "申请项目类型 = '" & e.DataRow("申请项目类型") & "' And 故障处理月份 = '" & e.DataRow("故障处理月份")  & "' And [_Identify] <> " & e.DataRow("_Identify")
            max = e.DataTable.Compute("Max(故障处理编号)",flt) '取得该月的相同工程代码的最大单据编号
            If max > "" Then '如果存在最大单据编号
                idx = CInt(max) + 1 '获得最大单据编号的后四位顺序号,并加1
                e.DataRow("故障处理编号") = Format(idx,"0000")
            Else
                idx = 1 '否则顺序号等于1
                e.DataRow("故障处理编号") = Format(idx,"0000")
            End If
           
        End If

[此贴子已经被作者于2017/7/25 10:32:40编辑过]

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/25 10:45:00 [只看该作者]

做一个按钮,把前期的数据修改一下

 

For Each dr As DataRow In DataTables("表A").Select("")
    dr("故障处理编号") = format(dr("故障处理编号"), "0000")
Next


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/10/13 16:49:00 [只看该作者]

我在 DataRowAdding 中写有以下命令来自动生成【系统编号】来做为工单的唯一标识

但是在实际使用中会出现如果有两个人在增加工单、就会出现【系统编号】重复的情况;我的命令该怎么修改

 

e.DataRow("系统编号") = "CMCC-HZ-DB"& Format(e.DataRow("_Identify"),"000000")

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/13 16:56:00 [只看该作者]

DataRowAdded事件

 

e.DataRow.Save

e.DataRow("系统编号") = "CMCC-HZ-DB" & Format(e.DataRow("_Identify"),"000000")


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


加好友 发短信
等级:五尾狐 帖子:1029 积分:6497 威望:0 精华:0 注册:2014/1/3 12:49:00
  发帖心情 Post By:2017/10/31 15:55:00 [只看该作者]

我想自动生成一个【工单号】,在新增行时写了以下命令;想在【工单号】最后面加上当前时间的 毫秒 ,命令该怎么写?

 

e.DataRow("工单号")  = "CMCC-HZ-5757000-" & format(dt,"yyyyMMdd") & "-" & format(dt,"hhmmss") '& "-" & format(dt,"毫秒")

 

CMCC-HZ-5757000-20171031-035315-***


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


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/10/31 17:02:00 [只看该作者]

e.DataRow("工单号")  = "CMCC-HZ-5757000-" & format(dt,"yyyyMMdd-hhmmss-ffff") 

 回到顶部
总数 27 上一页 1 2 3