以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  根据系统日期生存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42704)
--  作者：良才
--  发布时间：2013/11/19 19:49:00
--  根据系统日期生存

窗口1有学期(Label),当打开窗口时,就能根据系统日期生存学期,要求2月-7月生存  2013年(春），8月-1月生存2013年(秋),比如: 系统日期是:2013年3月就生存2013年(春)，2013年9月就生存2013年(秋)。请指教代码？谢谢

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.zip

[此贴子已经被作者于2013-11-19 20:03:32编辑过]
--  作者：逛逛
--  发布时间：2013/11/19 20:17:00
--  

取月

 

 判断

 
--  作者：有点甜
--  发布时间：2013/11/19 20:38:00
--  
 代码如下

e.Form.Controls("Table1").Table.StateFilter = StateFilterEnum.Added
Dim d As Date = Date.Today
msgbox(d.month)
If d.Month >= 2 And d.Month <=7 Then
    e.Form.Controls("学期").text = d.Year & "年(春)"
Else If d.Month = 1 Then
    e.Form.Controls("学期").text = (d.Year-1) & "年(秋)"
Else If d.Month > 7 Then
    e.Form.Controls("学期").text = d.Year & "年(秋)"
End If
--  作者：良才
--  发布时间：2013/11/19 20:59:00
--  

谢谢指教
--  作者：良才
--  发布时间：2013/12/14 11:45:00
--  
谢谢
--  作者：良才
--  发布时间：2013/12/14 11:45:00
--  
Dim d As Date = Date.Today
msgbox(d.month)
If d.Month >= 2 And d.Month <=7 Then
    Tables("缴学费信息").Current("学期").text = d.Year & "年(春)"
Else If d.Month = 1 Then
    Tables("缴学费信息").Current("学期").text = (d.Year-1) & "年(秋)"
Else If d.Month > 7 Then
    Tables("缴学费信息").Current("学期").text= d.Year & "年(秋)"
End If

 

错在哪里?请指点

[此贴子已经被作者于2013-12-14 12:10:43编辑过]
--  作者：Bin
--  发布时间：2013/12/14 15:12:00
--  
Dim d As Date = Date.Today
msgbox(d.month)
If d.Month >= 2 And d.Month <=7 Then
    Tables("缴学费信息").Current("学期")= d.Year & "年(春)"
Else If d.Month = 1 Then
    Tables("缴学费信息").Current("学期")= (d.Year-1) & "年(秋)"
Else If d.Month > 7 Then
    Tables("缴学费信息").Current("学期")= d.Year & "年(秋)"
End If

行何来的text 呢
[此贴子已经被作者于2013-12-14 15:23:12编辑过]
--  作者：良才
--  发布时间：2013/12/14 15:43:00
--  

谢谢