以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]增加行·自动编码问题·  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104977)

--  作者:jiangnanlove
--  发布时间: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、你数据表为什么不用自动递增的列做主键?