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


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

主题:自动编号

美女呀,离线,留言给我吧!
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

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


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/11 9:31:00 [只看该作者]

idx = CInt(max.Substring(max.length - 1)) + 1 

 回到顶部
美女呀,离线,留言给我吧!
13775189031
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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


加好友 发短信
等级:超级版主 帖子:111414 积分:567140 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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"  '数值直接使用


 回到顶部