共8 条记录, 每页显示 10 条, 页签: [1]

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

1楼

ashi_shine 发表于：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

2楼

狐狸爸爸 发表于：2011/8/30 11:58:00

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

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

3楼

yangming 发表于：2011/8/30 12:00:00

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

4楼

ashi_shine 发表于：2011/8/30 12:04:00

图片点击可在新窗口打开查看此主题相关图片如下：table控件-事件.jpg

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

5楼

狐狸爸爸 发表于：2011/8/30 12:06:00

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

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

'正常的DrawCell事件代码

end if

6楼

yangming 发表于：2011/8/30 12:06:00

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

7楼

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

8楼

紙上不談兵 发表于：2011/8/30 12:52:00

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

共8 条记录, 每页显示 10 条, 页签: [1]