以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助，关于自动编码问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=139236)
--  作者：hzpy
--  发布时间：2019/8/8 16:43:00
--  求助，关于自动编码问题
请教老师，A表有一“编号”列，六位，“000001”格式，想要增加一行或多行的时候，以此例最大数值+1的模式自动编号，该怎么办？
--  作者：有点蓝
--  发布时间：2019/8/8 16:56:00
--  
参考：http://www.foxtable.com/webhelp/topics/2403.htm
--  作者：hzpy
--  发布时间：2019/8/8 17:25:00
--  

嗯，参照写了一下，好像不行，烦请老师指导一下吧


If e.DataCol.Name = "编号"

If e.DataRow("编号") IsNot Nothing Then Return

Else

Dim max As Integer = DataTables("表A").Compute("Max(编号)")

Dim idx As Integer

  If max > "" Then
                  idx = CInt(max.Substring(1,6)) + 1
              End If
          End If

End If


[此贴子已经被作者于2019/8/8 17:25:37编辑过]
--  作者：有点蓝
--  发布时间：2019/8/9 8:55:00
--  
datarowadding事件

e.datarow("编号") = format(val(DataTables("表A").Compute("Max(编号)"))  + 1,"000000")
--  作者：hzpy
--  发布时间：2019/8/9 9:21:00
--  
这个代码写入，打开就闪退了，而且打不开了
[此贴子已经被作者于2019/8/9 9:23:05编辑过]
--  作者：hzpy
--  发布时间：2019/8/9 9:33:00
--  
和项目事件冲突了，已经解决，谢谢超版