以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158193)

--  作者:13775189031
--  发布时间: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

--  作者:有点蓝
--  发布时间:2020/11/11 9:31:00
--  
idx = CInt(max.Substring(max.length - 1)) + 1 
--  作者:13775189031
--  发布时间: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

--  作者:有点蓝
--  发布时间:2020/11/11 11:40:00
--  
多看几遍:http://www.foxtable.com/webhelp/topics/1284.htm

表达式中的日期用符号#括起来,数值则不需要任何符号括起来,这些和代码中的格式是一样的,唯一不同的是字符串用单引号括起来。

例如:

Tables("订单").Filter = "[产品] = \'PD01\'"  \'字符用单引号括起来
Tables("订单").Filter = "[日期] = #3/17/1999#"  \'日期用#括起来
Tables("订单").Filter = "[折扣] = 0.1"  \'数值直接使用