- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 自动编号会重复 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=39780)
-- 发布时间：2013/9/1 17:03:00
-- 自动编号会重复
上个图：
此主题相关图片如下：11.jpg
我设置的是如果是已核销的订单就会隐藏，当最后一个订单核销隐藏后再新增一个单号就会重复的。列也设置了不能重复的属性，请老师帮我看看编号代码有什么错误
datacolchanged事件代码：
If e.DataCol.Name = "制单日期" Then
If e.DataRow.IsNull("制单日期") Then
e.DataRow("采购单号") = Nothing
Else
Dim bh As String = Format(e.DataRow("制单日期"),"yyyyMMdd") \'取得编号的8位前缀
\' Dim year As String = bh.year
bh = format(CInt(bh.Substring(2,6)),"000000")
If e.DataRow("采购单号").StartsWith(bh) = False \'如果编号的前10位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(采购单号)","制单日期 = #" & e.DataRow("制单日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(10,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("采购单号") = "CG-" & bh & "-" & Format(idx,"000")
End If
End If
End If
-- 发布时间：2013/9/1 20:04:00
--
max = e.DataTable.Compute("Max(采购单号)" 这里应该是有问题的
你试试:DataTables("订单").("Max(采购单号)"
-- 发布时间：2013/9/1 21:01:00
--
bh = "CG-" & format(CInt(bh.Substring(2,6)),"000000")
e.DataRow("采购单号") = bh & "-" & Format(idx,"000")
应该是这两句,这样试试
-- 发布时间：2013/9/1 21:15:00
--
试了，DataTables在这里不能这样用，编译错误：‘datatables\' is a type and cannot be used as an expression
-- 发布时间：2013/9/1 21:29:00
--
bh = format(CInt(bh.Substring(2,6)),"000000")
If e.DataRow("采购单号").StartsWith(bh) = False \'如果编号的前10位不符
这里不对，bh中不含"CG-"，StartsWith(bh)的判断始终为false
-- 发布时间：2013/9/1 21:41:00
--
看了良久，你说的和你代码的不符吖。改成如下看看（3楼的）
If e.DataCol.Name = "制单日期" Then
If e.DataRow.IsNull("制单日期") Then
e.DataRow("采购单号") = Nothing
Else
Dim bh As String = Format(e.DataRow("制单日期"),"yyyyMMdd") \'取得编号的8位前缀
\' Dim year As String = bh.year
bh = "CG-" & format(CInt(bh.Substring(2,6)),"000000")
If e.DataRow("采购单号").StartsWith(bh) = False \'如果编号的前10位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(采购单号)","制单日期 = #" & e.DataRow("制单日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该天的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(10,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("采购单号") = bh & "-" & Format(idx,"000")
End If
End If
End If
-- 发布时间：2013/9/1 22:01:00
--
谢谢各位，楼上的几位代码也没问题，我之前的也没问题，问题出在隐藏核销的代码上了，重新加载tables("采购订单“）。filter = "核销 ＝ false" 就正常了。
-- 发布时间：2013/9/1 22:11:00
--
不想再重新开帖，追加个与这想关的问题就是：我想实现自动核销，条件是：
if 采购数＝入库数
核销 ＝ true
可是采购数和入库数都是表达式列，从子表（采购明细表）中通过表达式合计来的，请教各位老师，这个核销的表达式该如何写？
-- 发布时间：2013/9/1 22:16:00
--
\'If e.Col.name = "核销" Then
\' If e.Row("总订购数") <= e.Row("已入库数") Then
\' e.Row("核销") = True
\' End If
\'End If
这代码一加进去所有的单据都被核掉了
-- 发布时间：2013/9/1 22:21:00
--
以下是引用foskycn在2013-9-1 22:01:00的发言：
谢谢各位，楼上的几位代码也没问题，我之前的也没问题，问题出在隐藏核销的代码上了，重新加载tables("采购订单“）。filter = "核销 ＝ false" 就正常了。
谢谢各位，楼上的几位代码也没问题，我之前的也没问题，问题出在隐藏核销的代码上了，重新加载tables("采购订单“）。filter = "核销 ＝ false" 就正常了。
这个自动编号，是针对已经加载的数据的。因为datatable只是数据库里所有数据的一部分。如要做到，最好参考下面