| 以文本方式查看主题 - 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=161464) |
| -- 作者：syst -- 发布时间：2021/3/18 11:11:00 -- 关于动态加载的问题 老师您好， 遇到一个问题，有个订单表，用的是云端SQL数据库，有时候回莫名其妙的多出几个一模一样的订单，可是已经写过代码禁止重复的。怎么会出现这种情况呢？分析了一下有可能是网络不稳定造成，不知道有没有这种可能？如果是要怎么解决这种问题呢？谢谢噢。
|
| -- 作者：有点蓝 -- 发布时间：2021/3/18 11:21:00 -- 写了什么代码禁止重复？一个客户端使用，还是多个客户端使用？ 看都是哪个用户和什么时间创建的订单？
|
| -- 作者：syst -- 发布时间：2021/3/18 11:25:00 -- If e.DataCol.Name = "单据编号" Then Dim dr As DataRow dr = e.DataTable.sqlFind("单据编号 = \'" & e.NewValue & "\'") If dr IsNot Nothing Then MessageBox.Show("请重新新建!") e.cancel=True Tables("销售任务").current.delete End If End If 能新增订单的只有一个用户； 如果是做着网络断掉了，会不会出现这种情况？以前是全部数据加载进入foxtable，没有出现这种问题，现在改为分页加载了，就出现了；期间应该有网络不稳定的情况；
|
| -- 作者：有点蓝 -- 发布时间：2021/3/18 11:31:00 -- 网络不稳定有一定影响。如果确定只有一台电脑可以新增订单，并且只打开了一个项目程序，只能说是网络不稳定的原因了。 |
| -- 作者：syst -- 发布时间：2021/3/18 11:38:00 -- 嗯嗯蓝老师，如果是网络不稳定造成多出几条一模一样的订单，可以怎么处理呢。另外刚才您发的那个连接，我打不开那个日志文件噢，要激活码。开发版不能打开 |
| -- 作者：有点蓝 -- 发布时间：2021/3/18 11:41:00 -- 单号自动生成，不要使用手工输入：http://www.foxtable.com/webhelp/topics/2403.htm、http://www.foxtable.com/webhelp/topics/3008.htm 卸载试用版，到下载开发版的地方下载商业版安装即可打开那个日志文件
|
| -- 作者：syst -- 发布时间：2021/3/18 11:59:00 -- 收到谢谢哈！，目前系统的单号就是按照这个帮助文件一样的办法自动生成的。用的是SQLcompute If e.DataCol.Name = "单据日期" Then If e.DataRow.IsNull("单据日期") Then e.DataRow("单据编号") = Nothing Else Dim d As Date = e.DataRow("单据日期") Dim y As Integer = d.Year Dim m As Integer = d.Month Dim Days As Integer = Date.DaysInMonth(y,m) Dim fd As Date = New Date(y,m,1) \'获得该月的第一天 Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天 Dim bh As String = Format(d,"yyyyMM") \'生成编号的前6位,4位年,2位月. If e.DataRow("单据编号").StartsWith(bh) = False \'如果编号的前6位不符 Dim max As String Dim idx As Integer max = e.DataTable.sqlCompute("Max(单据编号)","单据日期 >= \'" & fd & "\' And 单据日期 <= \'" & ld & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号 If max > "" Then \'如果存在最大编号 idx = CInt(max.Substring(7,3)) + 1 \'获得最大编号的后三位顺序号,并加1 Else idx = 1 End If e.DataRow("单据编号") = bh & "-" & Format(idx,"000") End If End If End If [此贴子已经被作者于2021/3/18 12:01:22编辑过]
|