Foxtable(狐表)用户栏目专家坐堂 → 整数引用后变短


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

主题:整数引用后变短

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


加好友 发短信
等级:童狐 帖子:220 积分:1899 威望:0 精华:0 注册:2013/5/20 23:54:00
整数引用后变短  发帖心情 Post By:2020/3/5 11:56:00 [只看该作者]

老师:

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "工号"
        If dr.isnull("工号")  OrElse dr("工号").length <= 2
            dr("铭牌编号") = dr("工号")
        Else
            Dim pattern As String = "[^\d+]"
            Dim txt = dr("工号").split("-")(1)
            Dim str = System.Text.RegularExpressions.Regex.Replace(txt , pattern ,"")
            dr("铭牌编号") = str
        End If
End Select
If e.DataCol.name = "铭牌编号" OrElse e.DataCol.name="阀门序号1" Then
   If e.DataRow.isnull("铭牌编号")=False AndAlso e.DataRow.isnull("阀门序号1")=False Then
       e.DataRow("铭牌编号1")=e.DataRow("前缀") & e.DataRow("铭牌编号")& e.DataRow("阀门序号1")
   End If
End If

前缀为字母如ABC,阀门序号为3位整数如001,铭牌编号为字符,现在组合后不能实现如A19333001,代码出来为A193331

请老师帮忙看看,谢谢


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


加好友 发短信
等级:童狐 帖子:220 积分:1899 威望:0 精华:0 注册:2013/5/20 23:54:00
  发帖心情 Post By:2020/3/5 11:59:00 [只看该作者]

 

 

[此贴子已经被作者于2020/3/5 12:06:45编辑过]

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/5 13:59:00 [只看该作者]

e.DataRow("铭牌编号1")=e.DataRow("前缀") & e.DataRow("铭牌编号") & format(e.DataRow("阀门序号1"),"000")

 回到顶部