Foxtable(狐表)用户栏目专家坐堂 → 【求助】在分页加载的情况下,新增行如何编号?


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

主题:【求助】在分页加载的情况下,新增行如何编号?

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


加好友 发短信
等级:幼狐 帖子:175 积分:1646 威望:0 精华:0 注册:2015/6/10 13:50:00
【求助】在分页加载的情况下,新增行如何编号?  发帖心情 Post By:2019/10/20 20:39:00 [只看该作者]

e.DataRow("业务日期") = Date.Today
Dim bh As String = Format(e.DataRow("业务日期"),"yyyyMMdd") '取得编号的8位前缀
If e.DataRow("编号").StartsWith(bh) = False '如果编号的前8位不符
    Dim max As String
    Dim idx As Integer
    max = e.DataTable.SQLCompute("Max(编号)","业务日期 = #" & e.DataRow("业务日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
    If max > "" Then '如果存在最大编号
        idx = CInt(max.Substring(12,6)) + 1 '获得最大编号的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
    e.DataRow("编号") = "RKD" & bh & "-" & Format(idx,"000000")
End If

分页加载的情况下,如果用compute,只会获得当前页面的最大编号
如果用sqlcompute,会产生重复编号,请问该如何使用?
find  sqlfind可以两个一起用
其他这类的不会用啊,比如一半要求的数据已加载,sqlselect 和lselect如何使用

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/20 20:47:00 [只看该作者]

设置后保存当前行:
……
e.DataRow("编号") = "RKD" & bh & "-" & Format(idx,"000000")
e.DataRow.Save
……


 回到顶部