- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]帮我看看代码错在哪里？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89604)
-- 发布时间：2016/8/25 11:49:00
-- [求助]帮我看看代码错在哪里？
我想做一个自动编号，通过窗口标准按钮“增加”，在表中增加一行，该行的编号用自动编号显示，代码如下：
Tables("客户类别").Rows.AddNew()
Dim max As String
Dim idx As Integer
Max = e.DataTable.Compute("Max(类别编号)")
If Max > "" Then
idx = CInt(Max.Substring(4,2))+1
Else
idx = 1
End If
e.DataRow("类别编号") = "KHLB" & Format(idx,"00")
出错在红字行
-- 发布时间：2016/8/25 12:01:00
--
Dim dr As Row = Tables("客户类别").AddNew()
Dim max As String
Dim idx As Integer
Max = DataTables("客户类别").Compute("Max(类别编号)")
If Max > "" Then
idx = CInt(Max.Substring(4,2))+1
Else
idx = 1
End If
dr("类别编号") = "KHLB" & Format(idx,"00")
-- 发布时间：2016/8/25 12:33:00
--
非常感谢Hyphen老师的指点。OK！
再请教一下，下图代码怎么做呢？
此主题相关图片如下：qq截图20160825154045.png
此主题相关图片如下：qq截图20160825154045.png[此贴子已经被作者于2016/8/25 15:44:10编辑过]