[求助]临时表如何实现Drewcell功能 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

生成统计表后，按钮或者命令窗口执行

DataTables("统计表1").GlobalHandler.DrawCell = True

到项目全局DrawCell 事件写代码

If e.Table.Name = "统计表1" Then

'其它代码

End If

按照有点蓝老师的做法（如上），无法实现，

周日的样式，应该在那里建立

以下是全局DrawCell 代码

If e.Table.Name = "CQ" Then

Dim y As String = Forms("生产出勤管理").Controls("Com年").text

Dim m As String = Forms("生产出勤管理").Controls("Com月").text

For Each c As Col In e.Table.Cols

If c.Name <> "部门" AndAlso c.Name <> "姓名" AndAlso c.Name <> "班次" Then

Dim de As Date = "#" & m & "/" & c.Caption & "/" & y & "#"

Dim dw As Integer = de.DayOfWeek

If dw = 0 Then e.Style = "周日"

End If

Dim y As WinForm.ComboBox = e.Form.Controls("Com年")

Dim m As WinForm.ComboBox = e.Form.Controls("Com月")

Dim tb As Table = Tables(e.Form.Name & "_Table1")

Dim bm As WinForm.ComboBox = e.Form.Controls("Com部门")

bm.ComboList = DataTables("users").GetComboListString("小部门")

Dim dt As DataTable = DataTables("出勤汇总")

y.ComboList = dt.GetComboListString("年份")

m.ComboList = dt.GetComboListString("月份")

Dim ds As Integer = Date.DaysInMonth(y.Value,m.Value)

Dim dtb As New DataTableBuilder("CQ")

dtb.AddDef("部门", Gettype(String), 50)

dtb.AddDef("姓名", Gettype(String), 50)

dtb.AddDef("班次", Gettype(String), 50)

For i As Integer = 1 To ds ' c As Col In Tables("BOM").Cols

' dtb.AddDef(y.Value & "年_" & m.Value & "月_" & i , Gettype(String), 20 ) '& "|星期" & de.DayOfWeek)

dtb.AddDef( i & "日" , Gettype(String), 20 , "" , i) '& "|星期" & de.DayOfWeek)

dtb.Build()

tb.DataSource = DataTables("CQ")

DataTables("CQ").GlobalHandler.DrawCell = True

For Each c As Col In tb.Cols

If c.Name <> "部门" AndAlso c.Name <> "姓名" AndAlso c.Name <> "班次" Then

c.ComboList = DataTables("出勤要求").GetComboListString("出勤情况")

End If

Dim dr As DataRow = DataTables("Users").Find("Name = '" & _username & "'")

bm.Text = dr("小部门")

e.Form.Controls("But生成数据").performclick

老师，还是不行，这个周日的样式应该在那里增加。

If dw = 0 Then e.Style = "周日"

老师，可能我没有问题清楚，我想问的是要在那个数据表中增加样式，

因为CQ表是临时表，不可以增加样式的。

老师，我只想要周日的列更改样式，其它列不更改。

If e.Table.Name = "生产出勤管理_Table1" Then

Dim y As String = Forms("生产出勤管理").Controls("Com年").text

Dim m As String = Forms("生产出勤管理").Controls("Com月").text

For Each c As Col In e.Table.Cols

If c.Name <> "部门" AndAlso c.Name <> "姓名" AndAlso c.Name <> "班次" Then

Dim de As Date = "#" & m & "/" & c.Caption & "/" & y & "#"

Dim dw As Integer = de.DayOfWeek

If dw = 0 Then e.Style = "周日" ‘

End If

主题：[求助]临时表如何实现Drewcell功能