主题：[求助]代码出错，求教。

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

Style不能直接设置，用DrawCell事件：

 

http://www.foxtable.com/help/topics/0656.htm

 

 

 

代码应该放在表的：DrawCell事件　中，呵

此主题相关图片如下：table控件-事件.jpg

 

 

我用的TABLE控件，表事件里没有DrawCell。

副本Table，使用主表的DraeCell事件即可，大不了判断一下Table的名称：

 

if e.Table.Name = "TOP数据读取_Table1" Then

    '正常的DrawCell事件代码

end if

改成：SQLTable类型　select  语名写为：SELECT * FROM {表A}

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的的话，用其他的方法也可以，请问怎么做？

不如让符合条件的单独列出来,自成一表.