主题：[求助]Table控件中的某行改变颜色

读取外部数据加载到窗口中的TABLE控件中显示，在对数据进行搜索时，希望实现的是改变该行的显示样式,例如改行的颜色值设置为红色。

Dim dr As DataRow
dr =  DataTables("TOP数据读取_Table1").Find("[title] like '*"+e.Form.Controls("TextBox5").Text+"*'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("TOP数据读取_Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("TOP数据读取_Table1").Position = wz
       ？？ Tables("TOP数据读取_Table1").Rows(wz)("title").Style ？？？
    End If
End If

数据表的自定义样式功能，只能针对FOXTABLE窗口中的表数据进行设置，不能针对TABLE控件中的表数据进行设置。

请问，以上代码中红色？标示处的代码应该怎样修正？？

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

是窗体FORM里面的TABLE控件里的TABLE表。

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

不能自定义样式。

DataTables(" ").Find（SQL）

这句返回的是一行DataRow，如果SQL的查询结果是多条记录，如何实现？

嗯，是哦。

这样是可以的：

DataTables("TOP数据读取_Table1").AddUserStyle("a", Color.Red, Color.White)     

我原来是写成

Tables("TOP数据读取_Table1").AddUserStyle("a", Color.Red, Color.White)  

就不对了，提示不存在这个方法。

看来，DataTables和Tables我还没搞清楚。

Dim dr As DataRow
dr =  DataTables("TOP数据读取_Table1").Find("[title] like '*"+e.Form.Controls("TextBox5").Text+"*'")
If dr IsNot Nothing Then
    Dim wz As Integer = Tables("TOP数据读取_Table1").FindRow(dr)
    If wz >= 0 Then
        Tables("TOP数据读取_Table1").Position = wz 
    End If
End If

再问一个问题，这段代码可以获取到符合查询条件的第一条记录。如果想获取符合查询条件的全部记录，并且在TABLE控件中都突出显示。

该如何修改呢？