以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]哪位大神帮忙看看代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=90132)

--  作者:陈嘉淳
--  发布时间:2016/9/6 10:22:00
--  [求助]哪位大神帮忙看看代码
static i As Integer
static j As Integer
If e.Col.Name="日期" And e.Row("日期") IsNot Nothing Then
    Dim d As Date
    d=e.Row("日期")
    If d.Month<>i Then
    i=d.Month
    j=1
    e.Row("凭证号数")=d.Month & "-" & j
    Else  j=j+1
    e.Row("凭证号数")=d.Month & "-" & j
     End If
End If

每次重新打开文件又会重新开始,烦啊

--  作者:有点蓝
--  发布时间:2016/9/6 10:29:00
--  
没看明白想要做什么,请详细描述问题
--  作者:狐狸爸爸
--  发布时间:2016/9/6 10:40:00
--  

你想自动编号? 可以参考:

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

 


--  作者:陈嘉淳
--  发布时间:2016/9/6 10:57:00
--  
就是做凭证编号,规则是x-y,x取日期中的月份,Y做流水号,X值发生变化时,Y重新从1开始计数
--  作者:有点蓝
--  发布时间:2016/9/6 11:05:00
--  
按3楼的方法做,不能用静态变量。
--  作者:陈嘉淳
--  发布时间:2016/9/6 11:11:00
--  
就是想不通为什么每次重新打开表的时候静态变量会归零,是不是全局静态变量可以解决。我是个菜鸟,刚看帮助文档10多天
--  作者:陈嘉淳
--  发布时间:2016/9/6 11:11:00
--  
谢谢