Foxtable(狐表)用户栏目专家坐堂 → [求助]代码求助


  共有2578人关注过本帖树形打印复制链接

主题:[求助]代码求助

帅哥哟,离线,有人找我吗?
cqlwsam
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/20 23:22:00 [只看该作者]

Dim NewMonth As String = Args(0)
Dim Tbl As Table = Args(1)
CurrentMonth = NewMonth

Dim Year,Month As Integer
Year = Convert.ToInt32(NewMonth.SubString(0,4))
Month = Convert.ToInt32(NewMonth.SubString(5,2))

Dim Dt1 As New Date(Year,Month,1)
Dim Wk As Integer = Dt1.DayOfWeek
If Wk = 0 Then Wk = 7
Wk - = 1
Dim i As Integer
Dim c_index As Integer 
For c_index = Wk To 1 Step -1
    i + = 1
    Tbl.Rows(0)(c_index) = Format(Dt1.AddDays(-i),"yyyy-MM-dd")
Next
Dim r_index As Integer = 0
c_index = Wk

For i = 0 To Date.DaysInMonth(Year ,Month ) - 1
    c_index + = 1
    If c_index = 8 Then 
        r_index + = 1
        c_index = 1
    End If
    Tbl.Rows(r_index)(c_index) = Format(Dt1.AddDays(i),"yyyy-MM-dd")
Next
Do Until r_index = 5 AndAlso c_index = 6
    c_index + = 1
    If c_index = 8 Then 
        r_index + = 1
        c_index = 1
    End If
    Tbl.Rows(r_index)(c_index) = Format(Dt1.AddDays(i),"yyyy-MM-dd")
    i + = 1
Loop

 

代码中用红字标识的是什么意思,看不懂。


 回到顶部
帅哥哟,离线,有人找我吗?
cqlwsam
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1014 积分:7535 威望:0 精华:0 注册:2010/4/12 12:23:00
  发帖心情 Post By:2015/9/21 8:48:00 [只看该作者]

代码中:
Wk - = 1
    i + = 1
    Tbl.Rows(0)(c_index) = Format(Dt1.AddDays(-i),"yyyy-MM-dd")
+ - 是什么意思?
tbl.rows(0)(c_index)是指tbl表中的第一行,c_index+1列吗?

谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/9/21 9:32:00 [只看该作者]

比如,这个月第一天是星期二,得到wk=2,那么就要回退一天,从上个月最后一天开始。

 回到顶部
总数 13 上一页 1 2