以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]新增行中自动添加编号  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108686)
--  作者：webccc
--  发布时间：2017/10/27 11:12:00
--  [求助]新增行中自动添加编号
我在datarowadding事件中输入以下代码：
Dim max As String
max = e.DataTable.Compute("Max(单位编号)",e.DataRow("单位编号").startswith("CUN") & "= true")
Dim int As Integer = CInt(max.Substring(3,3)) + 1
e.DataRow("单位编号") = "CUN" & Format(int,"000") & "-01"

新增行时提示错误：
.NET Framework 版本：2.0.50727.8794
Foxtable 版本：2017.10.26.1
错误所在事件：表，HFCW市场部，DataRowAdding
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

请问该怎么办啊？
--  作者：有点甜
--  发布时间：2017/10/27 11:30:00
--  

Dim max As String
max = e.DataTable.Compute("Max(单位编号)", "单位编号 like \'CUN%\'")
Dim int As Integer = 1
If max > "" Then
    int = CInt(max.Substring(3,3)) + 1
End If
e.DataRow("单位编号") = "CUN" & Format(int,"000") & "-01"
--  作者：webccc
--  发布时间：2017/10/27 11:34:00
--  
感谢"有点甜"版主！非常感谢老师！
[此贴子已经被作者于2017/10/27 11:49:36编辑过]