专家坐堂-[求助]生成多层表头Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim y As WinForm.ComboBox = e.Form.Controls("CBYear") ‘选择的年

Dim m As WinForm.ComboBox = e.Form.Controls("CBMonth") ’选择的月

Dim tb As String="考勤管理_Table1"

If y.Value <> "" AndAlso m.Value <> "" Then

Dim ye As Integer=iif(m.Value -1 = 0,y.Value-1,y.Value)

Dim mt As Integer=iif(m.Value -1 = 0,12,m.Value -1)

Dim ts As Integer= Date.DaysInMonth(ye,mt) ’获取上个月的最多天数

\'MessageBox.Show(ts)

Select Case ts ‘移除多余列

Case 30

Tables(tb).Cols.Remove("三十一")

Case 29

Tables(tb).Cols.Remove("三十一","三十")

Case 28

Tables(tb).Cols.Remove("三十一","三十","二十九")

End Select

With DataTables(tb) ’更改列标题

For i As Integer = 1 To Tables(tb).Cols.Count - 3

If CInt(Tables(tb).Cols(i).Caption) > 25

\' Output.Show(Tables("订单").Cols(i).Caption)

.DataCols(i).Caption = mt & "月_" & Tables(tb).Cols(i).Caption

Else

.DataCols(i).Caption = mt+1 & "月_" & Tables(tb).Cols(i).Caption

End If

.MultiRowHeader = True

.BuildHeader()

End With

End If

结果没有达到效果：

此主题相关图片如下：1.jpg