Foxtable(狐表)用户栏目专家坐堂 → [求助]增加行·自动编码问题·


  共有2076人关注过本帖树形打印复制链接

主题:[求助]增加行·自动编码问题·

帅哥哟,离线,有人找我吗?
jiangnanlove
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:66 积分:545 威望:0 精华:0 注册:2017/7/19 7:48:00
[求助]增加行·自动编码问题·  发帖心情 Post By: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编辑过]

 回到顶部