在窗口中建立“任务主界面_Table1“是SQLQuery表，数据加载正常，而加载数据后重绘列"状态"没有反应。代码如下：
'在窗口打开时生成临时表结构
With Tables("任务主界面_Table1")
Dim dtb As New DataTableBuilder("统计1")
dtb.AddDef("任务编号", Gettype(String), 100)
dtb.AddDef("任务主题", Gettype(String), 150)
dtb.AddDef("开始时间", Gettype(Date))
dtb.AddDef("计划完成时间", Gettype(Date))
dtb.AddDef("状态", Gettype(String), 50)
dtb.AddDef("负责人", Gettype(String), 150)
dtb.Build()
'填充数据
Dim f As New Filler
f.SourceTable = DataTables("任务表") '指定数据来源
f.SourceCols = "负责人,任务编号,任务主题,开始时间,计划完成时间,状态" '指定数据来源列
f.DataTable = DataTables("统计1") '指定数据接收表
f.DataCols = "负责人,任务编号,任务主题,开始时间,计划完成时间,状态" '指定数据接收列
f.ExcludeExistValue =True
Dim dt1 As Date = Date.today
f.Filter ="开始时间 Is Not Null And 计划完成时间 Is Not Null And 开始时间 <= #" & dt1 & "# And 计划完成时间 >= #" & dt1 & "# “
f.fill()
.DataSource
= DataTables("统计1" )
.SetColVisibleWidth("任务编号|100|任务主题|200|负责人|100|开始时间|70|计划完成时间|70|状态|70|")
End with
窗口中表“任务主界面_Table1“的表事件
If e.Col.name= "状态" Then
e.StartDraw
e.Graphics.DrawImage(delimg1, e.x + 3,e.y + 3) '绘制第一个图标
e.EndDraw
End If
加好友 
发短信
Post By：2014/8/29 9:13:00 [只看该作者]
