主题：[求助] drawcell 代码优化问题

不用drawcell，直接给单元格设置图片，参考

 

Dim t As Table = Tables("表A")
Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add("cs1")
cs1.BackgroundImage = getimage("d:\test.jpg")
cs1.Display =  C1.Win.C1FlexGrid.DisplayEnum.ImageOnly
cs1.BackgroundImageLayout = C1.Win.C1FlexGrid.ImageAlignEnum.Stretch

t.grid.SetCellStyle(1, 1, cs1)

Dim t As Table = Tables("XMFP")
For Each dt As Row In t.Rows
    Dim xl As Integer=  dt.Index + 1
    Dim yl As Integer=  t.Cols("缩略图").Index + 1
    If dt("缩略图") > ""  Then
        Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add(dt("_Identify"))
        cs1.BackgroundImage = getimage( "\\SERVER\Foxtemp$\"  & dt("缩略图"))
        cs1.Display =  C1.Win.C1FlexGrid.DisplayEnum.ImageOnly
        cs1.BackgroundImageLayout = C1.Win.C1FlexGrid.ImageAlignEnum.Stretch
        t.grid.SetCellStyle(xl,yl, CS1)
        'Output.Show("\\SERVER\Foxtemp$\"  & dt("缩略图"))       
    End If
Next

可以写到AfterOpenProject事件，如果你修改了缩略图列的值，你还要在datacolchanged事件修改那一行的图片。类似2楼。

 

不可能。只要执行过一次，就肯定没问题。

 

上传实例测试。

 

你表格AfterLoad事件也加上那段代码。

 

全局事件的afterLoad事件，你要开启才能用的

 

http://www.foxtable.com/webhelp/scr/0671.htm

 

筛选之后afterFilter、排序之后afterSort，都是需要重新设置一次的。

 

父表的currentChanged事件，你试试设置一下。或者子表的currentChanged。

 

如果不行，具体做个例子上来测试。

贴出所写代码；上传具体实例测试。

子表drawcell事件

 

If vars("start") = True AndAlso e.Col.name = "缩略图" Then
    '原来代码
    vars("start") = False
End If

 

父表CurrentChanged事件

 

vars("start") = True