- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自动生成编号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=130175)
-- 发布时间：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编辑过]
-- 发布时间：2019/1/15 11:16:00
--
版主您好! 问题我查到了，是我的部门代码不一样导致的，我们部门代码有3位、4位、5位。怎么调整呢？
-- 发布时间：2019/1/15 11:18:00
--
idx = CInt(max.Substring(12,3)) + 1 \'获得最大单据编号的后四位顺序号,并加1
改成
idx = CInt(max.Substring(bh.length,3)) + 1 \'获得最大单据编号的后四位顺序号,并加1
-- 发布时间：2019/1/15 13:40:00
--
版主您好！ 我在做物资出门台账，分为表1 物资出门证 表2 物资出门明细 两个表通过出门证编号关联， 表1我可以通过经办人控制修改行的权限，表2可以怎么控制呢？
-- 发布时间：2019/1/15 15:36:00
--
以下是引用xlrboy在2019/1/15 13:40:00的发言：
版主您好！ 我在做物资出门台账，分为表1 物资出门证 表2 物资出门明细 两个表通过出门证编号关联， 表1我可以通过经办人控制修改行的权限，表2可以怎么控制呢？
版主您好！ 我在做物资出门台账，分为表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
-- 发布时间：2019/1/18 10:49:00
--
版主您好！ 在使用中发现一个问题，我们的编号是（部门缩写-日期-序号） 如果同时多人使用自动生成编号还是会发生重复，如何能避免呢？
-- 发布时间：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
-- 发布时间：2019/1/18 10:53:00
--
方法二
http://www.foxtable.com/webhelp/scr/1994.htm
-- 发布时间：2019/1/18 12:23:00
--
版主您好！ 方法一测试了不行，还是可以同时产生两个同样的编号。 数据源是SQL的，两个客服端同时登录编辑。
此主题相关图片如下：002.jpg
方法二，openQQ服务有些地方没有明白，
服务端的设计
1、在服务端的全局代码中编写代码：
Public flbhs As New Dictionary(of String,Integer)
这个代码放在那里？
重要的问题多说一遍：实际开发的时候，为便于调试分析，服务端项目和客户端项目可以在同一台电脑运行，但必须是两个不同的项目，否则无法正常运行，切记。
这个的意思是说还要在SQL数据服务器上安装一个狐表 服务端代码写入在服务器上是吗？
-- 发布时间：2019/1/18 12:24:00
--
代码没问题，具体实例发上来测试。