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

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