主题：[求助]代码求助

在日历窗口中如果新增“姓名”列，后面单元格中按姓名对应列出，窗口的drawcell代码如何修改？谢谢！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:1234567.table

 

 

什么意思啊

原来的“值班一览表”中的列从周一到周日，现新增“姓名”列作为首列，表的drawcell的代码执行不管首列，只管后面的列，需要修改，不知道怎么修改

DrawCell事件

 

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

此主题相关图片如下：360反馈意见截图16841005315319.png

不可能有问题。

可以。但是在另一个东西用就有问题。不知道怎么回事。谢谢！

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

前面添加姓名列，后面日期全乱套啦。需要修改内部函数“switchMonth”才行。能解释一下代码吗?

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