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


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

主题：[求助] drawcell 代码优化问题
帅哥哟，离线，有人找我吗？
81538475
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1282 积分：10316 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/4/24 15:30:00 [只看该作者]

是加载树的问题。。现在如何处理呢

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用81538475在2018/4/24 15:30:00的发言：
是加载树的问题。。现在如何处理呢

 

你表格AfterLoad事件也加上那段代码。
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1282 积分：10316 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/4/24 15:42:00 [只看该作者]

好了多谢，刚才加到了全局事件的afterload中。。所以没效果。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用81538475在2018/4/24 15:42:00的发言：
好了多谢，刚才加到了全局事件的afterload中。。所以没效果。

 

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

 

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1282 积分：10316 威望：0 精华：1 注册：2018/1/20 12:40:00 		  发帖心情 Post By：2018/4/24 18:48:00 [只看该作者]

主表都没问题了。。。现在关联表不显示图片。主要是在主表切换选择行的之后，关联表的图就没有了。重置列按钮可以恢复显示。

关联表的代码应该加到哪里呢。

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/4/24 18:47:49编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105924 积分：538683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/24 20:21:00 [只看该作者]

关联表的表事件代码放到子表表事件

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

是放到子表的afterload和datacolchanged里面的，子表正常显示，关联表不能显示。关联表点重置列后可以显示，但在父表上点击其他行，在点回来，就又没有图片了

 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105924 积分：538683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/4/24 22:06:00 [只看该作者]

写了什么代码？贴出来看看

 回到顶部
帅哥哟，离线，有人找我吗？
81538475
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

子表 Afterload 事件：
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
                t.grid.SetCellStyle(xl,yl, CS1)
         End If
            
        Next
    Next

子表 datacolchanged
If e.DataCol.Name = "缩略图" Then
    
    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
                t.grid.SetCellStyle(xl,yl, CS1)
            Else cs1.BackgroundImage = Nothing
            End If
            
        Next
    Next
End If
另外还有个问题就是，筛选之后，图片就没有了。。
[此贴子已经被作者于2018/4/25 9:46:17编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 4 次数据查询