- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 根据系统日期生存编号 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42712)
-- 发布时间：2013/11/20 9:19:00
-- 根据系统日期生存编号
窗口1有教师编号(Label),当打开窗口时,就能根据系统日期生存教师编号,要求12月-5月生存 201403xxx1，6月-11月生存201409xxx1,比如: 系统日期是:2013年12月就生存2014030001,2014年9月就生存2014090001。请指教代码？谢谢
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.zip |
[此贴子已经被作者于2013-11-20 9:26:51编辑过]
-- 发布时间：2013/11/20 9:23:00
--
看不明白你生成的格式的规律,毫无规律可言啊?
-- 发布时间：2013/11/20 12:14:00
--
Dim d As Date = Date.Today
msgbox(d.month)
If d.Month >= 6 And d.Month <=11 Then
e.Form.Controls("教师编号").text = d.Year & "09"
Else If d.Month = 12 Then
e.Form.Controls("教师编号").text = (d.Year+1) & "03"
Else If d.Month < 6 Then
e.Form.Controls("教师编号").text = d.Year & "03"
End If
后面0001递增怎样写?
-- 发布时间：2013/11/20 12:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目98.table |
-- 发布时间：2013/11/20 18:23:00
--
谢谢