以文本方式查看主题

-  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=24543)
--  作者：191422411
--  发布时间：2012/10/16 22:33:00
--  狐爸帮忙啊

 

 


 

[此贴子已经被作者于2014-10-30 21:45:23编辑过]
--  作者：mr725
--  发布时间：2012/10/16 22:51:00
--  

需要你自己测试一下：

     ·····
    If max>bh*1000 \'如果这个月有编号了   这里加个判断：max包含bh···
        ····
        For TT=bh*1000+1  To  max+1  

              ·····

                    r("案件编号")=TT    要判断 max<>TT  时
                Exit For
            End If
        Next
    Else
        r("案件编号")=bh*1000+1
    End If

Tables("车辆鉴定").Current.Save()   ‘直接在这里保存即可。
End If
\'以下代码在一定程度上防止编号重复  下面的代码没有意义吧

[此贴子已经被作者于2012-10-17 9:31:24编辑过]
--  作者：lin_hailun
--  发布时间：2012/10/17 10:40:00
--  
 首先，编号是肯定会有重复的，不知道楼主是怎样处理重复编号以后的问题。

 再者是，在代码中多次用到Tables("").Current 感觉很不妥当。