主题：如何弄排班表？

基本表都知识如何弄，就是如何进行转换，还有就是在转换后的表进行数据修改可以不？

 

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

 

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

转换中数字如何换成中文，还有如何自动调1周的数据。

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

点击浏览该文件:管理项目2.foxdb

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、不能，除非你修改后对应的也在数据那里新增。

1、g.VGroups.AddDef("日期",DateGroupEnum.Day,"{0}日")

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

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

 

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

 

1、排班表中窗口表中修改数据如何在排班中的同步，在统计表中可以同步？