以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求设计思路  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91876)

--  作者:litongbo1986
--  发布时间:2016/10/20 19:36:00
--  求设计思路
   如第一行 第一列 的单元格内容是含有张鹤的字符串,点击这个单元格,表中所有含张鹤字符的单元格都凸显出来。
--  作者:有点蓝
--  发布时间:2016/10/20 20:27:00
--  
如果这个单元格的内容张鹤,还有可能。包含的话拉倒吧,神仙都不可能知道这个单元格到底包含什么东西
--  作者:litongbo1986
--  发布时间:2016/10/20 21:26:00
--  
那如果单元格内容只是张鹤呢   求帮助图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2016/10/20 21:42:00
--  
设置一个自定义样式http://www.foxtable.com/webhelp/scr/0656.htm

DrawCell事件

之前的代码有性能问题,看下楼
[此贴子已经被作者于2016/10/20 21:51:07编辑过]

--  作者:有点蓝
--  发布时间:2016/10/20 21:53:00
--  
AfterSelChange事件
e.Table.Refresh

DrawCell 事件
If e.Col.IsString Then
    Dim name = e.Table.Rows(e.Table.RowSel)(e.Table.ColSel) 
    If name = "张鹤" AndAlso e.Row(e.Col.Name) = name Then
        e.Style = "样式1"
    End If
End If

--  作者:litongbo1986
--  发布时间:2016/10/20 21:58:00
--  
 如何将  张鹤  这个单元格内容  变成随机点击单元格的内容  与这个单元格相同的所有单元格凸显出来?  谢谢!   不要仅指定  张鹤这一个人
--  作者:有点蓝
--  发布时间:2016/10/20 22:10:00
--  
If e.Col.IsString Then
    If e.Row(e.Col.Name) = e.Table.Rows(e.Table.RowSel)(e.Table.ColSel)  Then
        e.Style = "样式1"
    End If
End If

--  作者:litongbo1986
--  发布时间:2016/10/21 9:07:00
--  
 蓝老师,前面代码可以执行    但是在点击  DATE列(日期型)的时候就会出现如下: 

 .NET Framework 版本:2.0.50727.3655
Foxtable 版本:2015.12.22.1
错误所在事件:表,表C,DrawCell
详细错误信息:
调用的目标发生了异常。
从字符串“MONO-37”到类型“Date”的转换无效。

Drawcell时间执行错误,在您修正代码之前,将暂停该事件执行。


如何解决点击日期列和空白单元格  不会产生 "样式1" 的效果?

--  作者:有点蓝
--  发布时间:2016/10/21 9:27:00
--  
Dim c As Col = e.Table.Cols(e.Table.ColSel)
Dim r As Row = e.Table.Rows(e.Table.RowSel)
If e.Col.IsString AndAlso c.IsString AndAlso r.IsNull(c.Name) = False Then
    If e.Row(e.Col.Name) = r(c.Name)  Then
        e.Style = "样式1"
    End If
End If

--  作者:litongbo1986
--  发布时间:2016/10/21 9:50:00
--  
当前是表A中点击一个单元格所有相同内容的单元格都是"样式1" ,如何能达到此时的表B,表C中单元格根据表A单元格相同内容也显示 "样式1" ?    谢谢!图片点击可在新窗口打开查看