Foxtable(狐表) → 用户栏目 → 专家坐堂 → 并发问题？


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

主题：并发问题？
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/13 16:47:00 [显示全部帖子]

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=177677&authorid=0&page=0&star=1

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


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/14 9:29:00 [显示全部帖子]

msgbox(max)
msgbox(max.Substring(max.Length  - 4))
idx = max.Substring(max.Length  - 4) + 1

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/14 10:12:00 [显示全部帖子]

会冲突，重复。

改为使用OpenQQ，在服务端统一生成编号，类似：http://www.foxtable.com/webhelp/topics/3008.htm
或者这里4楼：http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=145239
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/14 10:36:00 [显示全部帖子]

是的加一个回收表

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/14 11:40:00 [显示全部帖子]

代码在什么事件里的

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/14 12:56:00 [显示全部帖子]

调试

Dim dr As DataRow = DataTables("设置表").Find("项目名称='" & e.DataTable.Name & "编号'")
msgbox(dr IsNot Nothing)

If dr IsNot Nothing AndAlso dr.IsNull("设置") = False Then
    Dim max As String = e.DataTable.Compute("max(编号)")
msgbox(max)
    Dim idx As Integer
    '接收表的日期字段
    Dim d As Date = e.DataRow("日期")
'    编号规则
    If max > "" Then
        idx = max.Substring(max.Length - 4) + 1'加日期的编号规则
    Else
        idx = 1
    End If
msgbox(idx )
    e.DataRow("编号") = dr("设置") & "-" & Format(d, "yyyyMM") & "-" & Format(idx, "0000")
msgbox(e.DataRow("编号"))
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111381 积分：566969 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/12/14 16:57:00 [显示全部帖子]

说明设置表没有这个项目的名称

msgbox("项目名称='" & e.DataTable.Name & "编号'")
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04590 秒, 5 次数据查询