- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]增加行·自动编码问题· (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=104977)
-- 发布时间：2017/8/9 15:00:00
-- [求助]增加行·自动编码问题·
现在是增加行·不出现编码··点击别的行才显示编码··
代码如下··
Dim kd As String = "kd"
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号)","编号 like \'" & kd & "%\' ")
If max > "" Then \'如果存在最大支付编号
idx = CInt(max.Substring(kd.length)) + 1 \'获得最大支付编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("编号") = kd & Format(idx,"0000")
此主题相关图片如下：aa2.jpg
此主题相关图片如下：aa3.jpg
此主题相关图片如下：aa1.jpg
[此贴子已经被作者于2017/8/9 15:01:49编辑过]
-- 发布时间：2017/8/9 15:54:00
--
1、你增加行，要这样写 DataTables("表A").AddNew，不能写 Tables("表A").AddNew
2、你数据表为什么不用自动递增的列做主键？