主题：如何弄排班表？

 

基础表，四列，姓名列、日期列、排班列、备注列。

 

没有具体的例子，请看楼上所说。你横排的思路要换成竖排的思路，这样才方便管理。

 

 

基础表，四列，姓名列、日期列、排班列、备注列

 

在基础表填数据

 

先弄基础表啊，然后根据基础表横向的表。

 

但是如果要在转换后的表进行数据修改，就需要用代码控制，你一步一步来

Dim d As Date = Date.Today
Dim szs() As String = {"一月", "二月", "三月", "", "", "", "", "", "", "", "十一月", ""}
Dim g As New CrossTableBuilder("统计表", DataTables("排班"))
g.HGroups.AddDef("姓名")
g.VGroups.AddDef("日期")
'g.VGroups.AddDef(CStr("日期.Date"))
g.VGroups.AddDef("星期")
'g.VGroups.AddDef("农历")
g.Totals.AddDef("排班", "排班")
Dim y As Integer = d.Year
Dim w As Integer = d.DayOfWeek '算出今天是星期几
Dim dt1 As Date = d.AddDays(-w) '获取本周的第一天
Dim dt2 As Date = d.AddDays(6 - w) '获取本周的最后一天
g.Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"

Dim t As Table = e.Form.Controls("Table1").Table
t.DataSource = g.BuildDataSource
For Each c As Col In t.Cols
    If c.Caption.Contains("_") Then
        Dim ary() As String = c.Caption.Split("_")
        c.Caption = szs(ary(0)-1) & "_" & ary(1)
    End If
Next
t.DataTable.BuildHeader

1、http://www.foxtable.com/help/topics/0678.htm

 

2、编写drawcell事件 http://www.foxtable.com/help/topics/2262.htm

 

3、不能，除非你修改后对应的也在数据那里新增。

 g.VGroups.AddDef("日期",DateGroupEnum.None)

临时表的drawcell事件，写在全局表事件那里，记得开启

 

http://www.foxtable.com/help/topics/0671.htm

 

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

点击浏览该文件:排班表.foxdb

不是从星期天到星期六么？刚好7天啊。