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


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

主题:自动编号

美女呀,离线,留言给我吧!
13775189031
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
自动编号  发帖心情 Post By:2020/11/11 9:17:00 [显示全部帖子]

请教:用以下代码生成"试样编号_流水号",识别“标识号”和“试样代号”是否相同,只要其中之一不同,流水号重新从1开始
问题是“标识号”字符位数不定,要怎么改?
Select e.DataCol.Name
    Case "标识号","试样代号"
        If e.DataRow.IsNull("标识号") OrElse e.DataRow.IsNull("试样代号") Then
            e.DataRow("试样编号_流水号") = Nothing
        Else
            Dim ld As String = e.DataRow("标识号")
            Dim fd As String = e.DataRow("试样代号")
            Dim bh As String = e.DataRow("标识号") & e.DataRow("试样代号") & "-"
            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(2,1)) + 1 
                Else
                    idx = 1 
                End If
                e.DataRow("试样编号_流水号") = bh & Format(idx,"0")
            End If
        End If
End Select

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:870 积分:6018 威望:0 精华:0 注册:2017/12/19 14:46:00
  发帖心情 Post By:2020/11/11 11:18:00 [显示全部帖子]

报错,是哪有问题?
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:表,试样保存明细台账,DataColChanged
详细错误信息:
调用的目标发生了异常。
该字符串未被识别为有效的 DateTime。有一个未知单词(从索引 0 处开始)。

Select e.DataCol.Name
    Case "标识号","试样代号"
        If e.DataRow.IsNull("标识号") OrElse e.DataRow.IsNull("试样代号") Then
            e.DataRow("试样编号_流水号") = Nothing
        Else
            Dim ld As String = e.DataRow("标识号")
            Dim fd As String = e.DataRow("试样代号")
            Dim bh As String = e.DataRow("标识号") & e.DataRow("试样代号") & "-"
            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(max.length - 1)) + 1
                Else
                    idx = 1
                End If
                e.DataRow("试样编号_流水号") = bh & Format(idx,"0")
            End If
        End If
End Select

 回到顶部