自动编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3530人关注过本帖树形打印复制链接主题：自动编号

13775189031

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：807 积分：5579 威望：0 精华：0 注册：2017/12/19 14:46:00

自动编号

Post By：2018/6/27 11:48:00 [只看该作者]

请教

Select e.DataCol.Name

Case "制单日期"

If e.DataRow.IsNull("制单日期") Then

e.DataRow("送检单编号") = Nothing

Else

Dim d As Date = e.DataRow("制单日期")

Dim y As Integer = d.Year

Dim bh As String = Format(d,"yyyy")

If e.DataRow("送检单编号").StartsWith(bh) = False

Dim max As String

Dim idx As Integer

max = e.DataTable.Compute("Max(送检单编号)","制单日期 = #" & bh & "# And [_Identify] <> " & e.DataRow("_Identify"))

If max > "" Then

idx = CInt(max.Substring(8,4)) + 1

Else

idx = 1

End If

e.DataRow("内部合同编号") = bh & "-F-" & Format(idx,"000")

e.DataRow.Save

End If

End Select

显示

.NET Framework 版本：2.0.50727.8762

Foxtable 版本：2018.3.9.1

错误所在事件：表，理化试验送检单，DataColChanged

详细错误信息：

调用的目标发生了异常。

该字符串未被识别为有效的 DateTime。

哪里有问题？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/6/27 11:53:00 [只看该作者]

Select e.DataCol.Name
    Case "制单日期"
        If e.DataRow.IsNull("制单日期") Then
            e.DataRow("送检单编号") = Nothing
        Else
            Dim d As Date = e.DataRow("制单日期")
            Dim y As Integer = d.Year
            Dim bh As String = Format(d,"yyyy")
            d = new Date(y, 1, 1)
            If e.DataRow("送检单编号").StartsWith(bh) = False
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(送检单编号)","制单日期 >= #" & d & "# And 制单日期 < #" & d.addyears(1) & "# and [_Identify] <> " & e.DataRow("_Identify"))
                If max > "" Then
                    idx = CInt(max.Substring(7)) + 1
                Else
                    idx = 1
                End If
                e.DataRow("内部合同编号") = bh & "-F-" & Format(idx,"000")
                e.DataRow.Save
            End If
        End If
End Select

[此贴子已经被作者于2018/6/27 11:54:16编辑过]

13775189031

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：807 积分：5579 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/6/27 16:16:00 [只看该作者]

谢谢！

13775189031

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：807 积分：5579 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/10/16 15:21:00 [只看该作者]

教程上按类别编码

“类别”列是不是不能是表达式列？

我现在按教程编码，只是类别列是表达式，没反应！

Select e.DataCol.Name
Case "类别"
If e.DataRow.IsNull("类别") Then
e.DataRow("编号") = Nothing
Else
Dim lb As String = e.DataRow("类别")
If e.DataRow("编号").StartsWith(lb) = False '如果单据编号前缀不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号)","类别 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
If max > "" Then '如果存在最大编号
idx = CInt(max.Substring(2,3)) + 1 '获得最大编号的后三位顺序号,并加1
Else
idx = 1 '否则顺序号等于1
End If
e.DataRow("编号") = lb & Format(idx,"000")
End If
End If
End Select

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/16 15:34:00 [只看该作者]

表达式列修改，不会触发datacolchanged事件，看看

http://www.foxtable.com/webhelp/scr/2381.htm

13775189031

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：807 积分：5579 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/10/17 9:00:00 [只看该作者]

谢谢！改用跨表引用解决了！

13775189031

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：807 积分：5579 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/10/17 9:12:00 [只看该作者]

另外采购管理台账中“编码”自动编号代码如下，想增加另外的功能，即如果“采购计划编号”相同，则“编码”也相同，该怎么改？

Select e.DataCol.Name
    Case "采购计划管理_预算输入部门代号"
        If e.DataRow.IsNull("采购计划管理_预算输入部门代号") Then
            e.DataRow("编码") = Nothing
        Else
            Dim lb As String = e.DataRow("采购计划管理_预算输入部门代号")
            If e.DataRow("编码").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.sqlCompute("Max(编码)","采购计划管理_预算输入部门代号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(3,4)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("编码") = lb & Format(idx,"0000")
            End If
        End If
End Select

下载信息 [文件大小：下载次数： ]
点击浏览该文件:采购管理台账.foxdb

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/10/17 9:21:00 [只看该作者]

Select e.DataCol.Name
    Case "采购计划管理_预算输入部门代号", "采购计划管理_采购计划编号"
        Dim fdr As DataRow = e.DataTable.find("采购计划管理_采购计划编号 = '" & e.DataRow("采购计划管理_采购计划编号") & "' and 编码 is not null", "编码")
        If fdr IsNot Nothing Then
            e.DataRow("编码") = fdr("编码")
        Else
            If e.DataRow.IsNull("采购计划管理_预算输入部门代号") Then
                e.DataRow("编码") = Nothing
            Else
                Dim lb As String = e.DataRow("采购计划管理_预算输入部门代号")
                If e.DataRow("编码").StartsWith(lb) = False '如果单据编号前缀不符
                    Dim max As String
                    Dim idx As Integer
                    max = e.DataTable.sqlCompute("Max(编码)","采购计划管理_预算输入部门代号 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                    If max > "" Then '如果存在最大编号
                        idx = CInt(max.Substring(3,4)) + 1 '获得最大编号的后三位顺序号,并加1
                    Else
                        idx = 1 '否则顺序号等于1
                    End If
                    e.DataRow("编码") = lb & Format(idx,"0000")
                End If
            End If
        End If
End Select

下一主题 >> << 上一主题

主题：自动编号