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


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

主题:自动生成编号

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
自动生成编号  发帖心情 Post By:2019/1/15 10:27:00 [只看该作者]

版主您好!   我想设计自动生成编码,代码完全按照帮助来的只是修改了列名称,加入了天。第一个编码自动生成了,第二个就提示错误
                  NET Framework 版本:2.0.50727.8793
Foxtable 版本:2018.9.9.1
错误所在事件:表,物资出门证台账,DataColChanged
详细错误信息:
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length


代码如下:
Select e.DataCol.Name
    Case "申请日期","部门代码"
        If e.DataRow.IsNull("申请日期") OrElse e.DataRow.IsNull("部门代码") Then
            e.DataRow("编号") = Nothing
        Else
            Dim d As Date = e.DataRow("申请日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = e.DataRow("部门代码") & "-" & Format(d,"yyyyMMdd") & "-" '生成编号的前缀
            If e.DataRow("编号").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "部门代码 = '"& e.DataRow("部门代码") & "' And 申请日期 >= #" & fd & "# And 申请日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(12,3)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("编号") = bh & Format(idx,"000")
            End If
        End If
End Select
[此贴子已经被作者于2019/1/15 10:49:27编辑过]

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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2019/1/15 11:16:00 [只看该作者]

版主您好!  问题我查到了,是我的部门代码不一样导致的,我们部门代码有3位、4位、5位。怎么调整呢?

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


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

idx = CInt(max.Substring(12,3)) + 1 '获得最大单据编号的后四位顺序号,并加1

 

改成

 

idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大单据编号的后四位顺序号,并加1


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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2019/1/15 13:40:00 [只看该作者]

版主您好!   我在做物资出门台账,分为表1 物资出门证  表2 物资出门明细 两个表通过出门证编号关联,  表1我可以通过经办人控制修改行的权限,表2可以怎么控制呢?

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


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

以下是引用xlrboy在2019/1/15 13:40:00的发言:
版主您好!   我在做物资出门台账,分为表1 物资出门证  表2 物资出门明细 两个表通过出门证编号关联,  表1我可以通过经办人控制修改行的权限,表2可以怎么控制呢?

 

1、你表1的控制怎么写的?贴出对应事件代码。

 

2、你直接引用父表数据即可,比如,startEdit事件,

 

Dim pr As DataRow = e.row.datarow.getparentrow("物资出门证")

If pr IsNot Nothing Then

    msgbox(123)

    msgbox(pr("经办人"))

End If


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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2019/1/18 10:49:00 [只看该作者]

版主您好!  在使用中发现一个问题,我们的编号是(部门缩写-日期-序号) 如果同时多人使用自动生成编号还是会发生重复,如何能避免呢?

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


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

方法一

 

Select e.DataCol.Name
    Case "申请日期","部门代码"
        If e.DataRow.IsNull("申请日期") OrElse e.DataRow.IsNull("部门代码") Then
            e.DataRow("编号") = Nothing
        Else
            Dim d As Date = e.DataRow("申请日期")
            Dim y As Integer = d.Year
            Dim m As Integer = d.Month
            Dim Days As Integer = Date.DaysInMonth(y,m)
            Dim fd As Date = New Date(y,m,1) '获得该月的第一天
            Dim ld As Date = New Date(y,m,Days) '获得该月的最后一天
            Dim bh As String = e.DataRow("部门代码") & "-" & Format(d,"yyyyMMdd") & "-" '生成编号的前缀
            If e.DataRow("编号").StartsWith(bh) = False '如果单据编号前缀不符
e.datarow.save
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "部门代码 = '"& e.DataRow("部门代码") & "' And 申请日期 >= #" & fd & "# And 申请日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(编号)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("编号") = bh & Format(idx,"000")
e.datarow.save
            End If
        End If
End Select

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


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


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


加好友 发短信
等级:幼狐 帖子:134 积分:996 威望:0 精华:0 注册:2018/9/13 16:41:00
  发帖心情 Post By:2019/1/18 12:23:00 [只看该作者]

版主您好!  方法一测试了不行,还是可以同时产生两个同样的编号。  数据源是SQL的,两个客服端同时登录编辑。

图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看
                方法二,openQQ服务有些地方没有明白,
服务端的设计

1、在服务端的全局代码中编写代码:

Public flbhs As New Dictionary(of String,Integer)

这个代码放在那里?


重要的问题多说一遍:实际开发的时候,为便于调试分析,服务端项目和客户端项目可以在同一台电脑运行,但必须是两个不同的项目,否则无法正常运行,切记。

这个的意思是说还要在SQL数据服务器上安装一个狐表 服务端代码写入在服务器上是吗?



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


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

代码没问题,具体实例发上来测试。

 回到顶部
总数 64 1 2 3 4 5 6 7 下一页