以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  drawcell问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135891)

--  作者:rjh4078
--  发布时间:2019/6/5 22:00:00
--  drawcell问题
我在一个窗口表里增加了一个drawcell事件
 但是开启以后 窗口特别卡  删掉就正常
代码如下
If Forms("销售单").Opened Then
    If e.Row.IsNull("背景颜色") = False AndAlso e.Row.IsNull("字体颜色") = False Then
        Dim n As String = "样式" & e.Row("_Identify")
        e.Table.DataTable.AddUserStyle(n, Color.FromARGB(e.Row("背景颜色")),Color.black )
        e.Table.DataTable.Styles(n).BackColor = Color.FromARGB(e.Row("背景颜色"))
        e.Table.DataTable.Styles(n).foreColor = Color.FromARGB(e.Row("字体颜色"))
        e.style = n
    End If
End If

--  作者:rjh4078
--  发布时间:2019/6/5 22:36:00
--  
非常奇怪 无法关闭窗口 必须在窗口里随便点个控件才能关闭
--  作者:有点甜
--  发布时间:2019/6/6 9:51:00
--  

1、你试试把这个代码注释 e.Table.DataTable.AddUserStyle(n, Color.FromARGB(e.Row("背景颜色")),Color.black )

 

2、是不是你表格数据太多了?导致运行缓慢?


--  作者:rjh4078
--  发布时间:2019/6/6 16:25:00
--  
我已经通过其它手段限制加载了 每次不到15行


--  作者:有点甜
--  发布时间:2019/6/6 18:07:00
--  
以下是引用rjh4078在2019/6/6 16:25:00的发言:
我已经通过其它手段限制加载了 每次不到15行

 

做个例子发上来测试。


--  作者:rjh4078
--  发布时间:2019/6/7 9:05:00
--  
我现在把row渲染改成按col渲染 好多了 但是还有可觉卡顿