以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何让自动编号在填充相关数据后再生成  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=103669)
--  作者：fytea
--  发布时间：2017/7/13 21:11:00
--  如何让自动编号在填充相关数据后再生成

让不重复的目录级档号自动生成，我在表事件DataColChanged中写如下代码

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.name
    Case "全宗号","案卷目录号","案卷号"
           dr("目录级档号") = format(val(dr("全宗号")),"0000") & "-" & format(val(dr("案卷目录号")),"000") &"-" & format(Val(dr("案卷号")),"0000000")
End Select

 

当在“”全宗号“”列输入值，目录级档号即生成，导致禁止重复的设置提示对话框弹出，如何才能做到目录级档号在填充相关数据后再生成？

谢谢
--  作者：有点甜
--  发布时间：2017/7/13 22:01:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2218.htm

 

http://www.foxtable.com/webhelp/scr/1587.htm