关于动态加载的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师您好，

遇到一个问题，有个订单表，用的是云端SQL数据库，有时候回莫名其妙的多出几个一模一样的订单，可是已经写过代码禁止重复的。怎么会出现这种情况呢？分析了一下有可能是网络不稳定造成，不知道有没有这种可能？如果是要怎么解决这种问题呢？谢谢噢。

写了什么代码禁止重复？一个客户端使用，还是多个客户端使用？

做个日志功能跟踪看看：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110215

看都是哪个用户和什么时间创建的订单？

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

能新增订单的只有一个用户；

如果是做着网络断掉了，会不会出现这种情况？以前是全部数据加载进入foxtable，没有出现这种问题，现在改为分页加载了，就出现了；期间应该有网络不稳定的情况；

网络不稳定有一定影响。如果确定只有一台电脑可以新增订单，并且只打开了一个项目程序，只能说是网络不稳定的原因了。

嗯嗯蓝老师，如果是网络不稳定造成多出几条一模一样的订单，可以怎么处理呢。另外刚才您发的那个连接，我打不开那个日志文件噢，要激活码。开发版不能打开

卸载试用版，到下载开发版的地方下载商业版安装即可打开那个日志文件

收到谢谢哈！，目前系统的单号就是按照这个帮助文件一样的办法自动生成的。用的是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

[此贴子已经被作者于2021/3/18 12:01:22编辑过]

主题：关于动态加载的问题