Foxtable(狐表) → 用户栏目 → 专家坐堂 → 自动编号会重复


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

主题：自动编号会重复
帅哥哟，离线，有人找我吗？
foskycn
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：92 积分：744 威望：0 精华：0 注册：2013/7/19 8:55:00 		自动编号会重复  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
sloyy
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2193 积分：13926 威望：0 精华：2 注册：2012/2/25 10:59:00 		  发帖心情 Post By：2013/9/1 20:04:00 [只看该作者]

max = e.DataTable.Compute("Max(采购单号)"  这里应该是有问题的

你试试:DataTables("订单").("Max(采购单号)" 
 回到顶部
帅哥哟，离线，有人找我吗？
ahbzczy
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：268 积分：2307 威望：0 精华：0 注册：2010/3/26 14:08:00 		  发帖心情 Post By：2013/9/1 21:01:00 [只看该作者]

  bh = "CG-" & format(CInt(bh.Substring(2,6)),"000000")

 

  e.DataRow("采购单号") =  bh & "-" & Format(idx,"000")

 

应该是这两句,这样试试
 回到顶部
帅哥哟，离线，有人找我吗？
foskycn
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：92 积分：744 威望：0 精华：0 注册：2013/7/19 8:55:00 		  发帖心情 Post By：2013/9/1 21:15:00 [只看该作者]

试了，DataTables在这里不能这样用，编译错误：‘datatables' is a type and cannot be used as an expression

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


加好友 发短信
等级：婴狐 帖子：18 积分：161 威望：0 精华：0 注册：2013/8/29 20:40:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
foskycn
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：92 积分：744 威望：0 精华：0 注册：2013/7/19 8:55:00 		  发帖心情 Post By：2013/9/1 22:01:00 [只看该作者]

谢谢各位，楼上的几位代码也没问题，我之前的也没问题，问题出在隐藏核销的代码上了，重新加载tables("采购订单“）。filter = "核销 ＝ false" 就正常了。

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


加好友 发短信
等级：婴狐 帖子：92 积分：744 威望：0 精华：0 注册：2013/7/19 8:55:00 		  发帖心情 Post By：2013/9/1 22:11:00 [只看该作者]

不想再重新开帖，追加个与这想关的问题就是：我想实现自动核销，条件是：
if 采购数＝入库数
核销 ＝ true
可是采购数和入库数都是表达式列，从子表（采购明细表）中通过表达式合计来的，请教各位老师，这个核销的表达式该如何写？
 回到顶部
帅哥哟，离线，有人找我吗？
foskycn
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：92 积分：744 威望：0 精华：0 注册：2013/7/19 8:55:00 		  发帖心情 Post By：2013/9/1 22:16:00 [只看该作者]

'If e.Col.name = "核销" Then
'    If e.Row("总订购数") <= e.Row("已入库数") Then
'        e.Row("核销") = True
'    End If
'End If
这代码一加进去所有的单据都被核掉了
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2013/9/1 22:21:00 [只看该作者]

以下是引用foskycn在2013-9-1 22:01:00的发言：
谢谢各位，楼上的几位代码也没问题，我之前的也没问题，问题出在隐藏核销的代码上了，重新加载tables("采购订单“）。filter = "核销 ＝ false" 就正常了。


这个自动编号，是针对已经加载的数据的。因为datatable只是数据库里所有数据的一部分。如要做到，最好参考下面
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05908 秒, 4 次数据查询