主题：[求助]代码求助

什么意思啊

DrawCell事件

 

If e.Col.name = "姓名" Then Return

不可能有问题。

不明白你什么意思。例子发上来。

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

 

 

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