Foxtable(狐表)用户栏目专家坐堂 → [求助] drawcell 代码优化问题


  共有3303人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/25 12:33:00 [只看该作者]

Dim tbs() As String = {"XMFP","XMZB.XMFP"}
For Each s As String In tbs
    Dim t As Table = Tables(s)
   
    For Each tr As Row In t.Rows
        Dim xl As Integer=  tr.Index + 1
        Dim yl As Integer=  t.Cols("缩略图").Index + 1
        Dim cs1 As C1.Win.C1FlexGrid.CellStyle = t.grid.Styles.Add(tr("_Identify"))
        If tr("缩略图") > ""  Then
            If FileSys.FileExists("\\SERVER\Foxtemp$\"  & tr("缩略图")) Then
                cs1.BackgroundImage = getimage( "\\SERVER\Foxtemp$\"  & tr("缩略图"))
                cs1.Display =  C1.Win.C1FlexGrid.DisplayEnum.ImageOnly
                cs1.BackgroundImageLayout = C1.Win.C1FlexGrid.ImageAlignEnum.Stretch
            Else
                ' MessageBox.Show("1")
                cs1.BackgroundImage = getimage("Images\failed.ico")
                cs1.Display =  C1.Win.C1FlexGrid.DisplayEnum.ImageOnly
                cs1.BackgroundImageLayout = C1.Win.C1FlexGrid.ImageAlignEnum.Stretch
            End If                                   
        Else
            cs1.BackgroundImage = Nothing
        End If
        t.grid.SetCellStyle(xl,yl, CS1)

    Next
Next

 

如果还有问题,上传具体实例,以及图片测试。


 回到顶部
帅哥哟,离线,有人找我吗?
81538475
  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1279 积分:10296 威望:0 精华:1 注册:2018/1/20 12:40:00
  发帖心情 Post By:2018/4/25 14:26:00 [只看该作者]

搞定了。多谢,辛苦了。

 回到顶部
总数 32 上一页 1 2 3 4