- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]代码出错，求教。 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=12338)
-- 发布时间：2011/8/30 11:51:00
-- [求助]代码出错，求教。
DataTables("TOP数据读取_Table1").AddUserStyle("a", Color.Red, Color.White)
Dim drs As List(Of DataRow)
drs = DataTables("TOP数据读取_Table1").Select("[title] like \'*"+e.Form.Controls("TextBox5").Text+"*\'")
For Each dr As DataRow In drs
dr("num_iid").Style="a"
Next
错误提示如下：
此主题相关图片如下：错误1.jpg
-- 发布时间：2011/8/30 11:58:00
--
Style不能直接设置，用DrawCell事件：
http://www.foxtable.com/help/topics/0656.htm
-- 发布时间：2011/8/30 12:00:00
--
代码应该放在表的：DrawCell事件 中，呵
-- 发布时间：2011/8/30 12:04:00
--
此主题相关图片如下：table控件-事件.jpg
我用的TABLE控件，表事件里没有DrawCell。
-- 发布时间：2011/8/30 12:06:00
--
副本Table，使用主表的DraeCell事件即可，大不了判断一下Table的名称：
if e.Table.Name = "TOP数据读取_Table1" Then
\'正常的DrawCell事件代码
end if
-- 发布时间：2011/8/30 12:06:00
--
改成：SQLTable类型 select 语名写为：SELECT * FROM {表A}
-- 发布时间：2011/8/30 12:08:00
--
Dim drs As List(Of DataRow)
drs = DataTables("TOP数据读取_Table1").Select("[title] like \'*"+e.Form.Controls("TextBox5").Text+"*\'")
For Each dr As DataRow In drs
Dim wz As Integer = Tables("TOP数据读取_Table1").FindRow(dr)
If wz >= 0 Then
？？让该行突出显示即可
End If
Next
目的是查询出所有符合条件的列突出显示，不能用STYLE的的话，用其他的方法也可以，请问怎么做？
-- 发布时间：2011/8/30 12:52:00
--
不如让符合条件的单独列出来,自成一表.