以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 在DRAWCELL设置了选定行颜色后，一点合计行就崩溃  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100570)
--  作者：firehell
--  发布时间：2017/5/13 23:14:00
--  [求助] 在DRAWCELL设置了选定行颜色后，一点合计行就崩溃

问老师  在DRAWCELL里面设置了选定行色彩  但在表中按上下键盘浏览数据的时候 只要一到最后的合计行就会出错 
这个需要如何避免呢？

 

下面是截图和文件包
 
图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170513230636.png
图片点击可在新窗口打开查看

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

 


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:工商数据查询2.zip

[此贴子已经被作者于2017/5/14 19:47:27编辑过]
--  作者：有点蓝
--  发布时间：2017/5/15 9:08:00
--  
首先，AddUserStyle这类代码不要放在这个事件中，效率非常低，应该预先定义好或者放到AfterOpenProject事件


\'=====选定行背景颜色===
If e.Table.Current IsNot Nothing AndAlso e.Row.Index = e.Table.Current.Index Then
    e.Table.DataTable.AddUserStyle("选", Color.Yellow, Color.Black)
    e.style = "选"
End If
--  作者：firehell
--  发布时间：2017/5/15 10:12:00
--  
以下是引用有点蓝在2017/5/15 9:08:00的发言：
首先，AddUserStyle这类代码不要放在这个事件中，效率非常低，应该预先定义好或者放到AfterOpenProject事件


\'=====选定行背景颜色===
If e.Table.Current IsNot Nothing AndAlso e.Row.Index = e.Table.Current.Index Then
    e.Table.DataTable.AddUserStyle("选", Color.Yellow, Color.Black)
    e.style = "选"
End If

请问老师  如果放在项目的 AfterOpenProject中 这个应该如何写呢？
--  作者：有点色
--  发布时间：2017/5/15 10:16:00
--  

 

DataTables("工商暂停").AddUserStyle("选", Color.Yellow, Color.Black)

 
--  作者：firehell
--  发布时间：2017/5/15 14:25:00
--  
以下是引用有点色在2017/5/15 10:16:00的发言：

 

DataTables("工商暂停").AddUserStyle("选", Color.Yellow, Color.Black)

 

不好意思，老师，由于才接触，式了半天没成功。但功能又迫切需要实现。

在DRAWCELL直接用上面的套换还没问题，考虑到老师说的效率问题 想直接用于 AfterOpenProject中

麻烦老师能不能帮我将这个当前行的式样 如何项目属性的 AfterOpenProject中完整表达，完整的写法写下。谢谢
--  作者：有点蓝
--  发布时间：2017/5/15 14:45:00
--  
AfterOpenProject
DataTables("工商暂停").AddUserStyle("选", Color.Yellow, Color.Black)

DRAWCELL
\'=====选定行背景颜色===
If e.Table.Current IsNot Nothing AndAlso e.Row.Index = e.Table.Current.Index Then
    e.style = "选"
End If
--  作者：有点色
--  发布时间：2017/5/15 14:53:00
--  

 你就按照原来的写法把，不然你要列出所有的可能的样式的。

 

 比如，依次类推......

 

DataTables("工商暂停").AddUserStyle("选", Color.Yellow, Color.Black)

DataTables("工商暂停").AddUserStyle("单行", Color.Yellow, Color.Black)

DataTables("工商暂停").AddUserStyle("双行", Color.Yellow, Color.Black)

 

DataTables("工商暂停").AddUserStyle("四类行_日期", Color.Yellow, Color.Black)

DataTables("工商暂停").AddUserStyle("四类行_t", Color.Yellow, Color.Black)

DataTables("工商暂停").AddUserStyle("四类行_1", Color.Yellow, Color.Black)

 

DataTables("工商暂停").AddUserStyle("四类_日期", Color.Yellow, Color.Black)

DataTables("工商暂停").AddUserStyle("四类_t", Color.Yellow, Color.Black)

DataTables("工商暂停").AddUserStyle("四类_1", Color.Yellow, Color.Black)

 
--  作者：firehell
--  发布时间：2017/5/15 15:28:00
--  
额 原来是要分两部分写  
AfterOpenProject  写试验

DRAWCELL写判断动作

谢谢