奇怪了！
代码执行过程中，cis的偶数项目（季度词、类目词、功能词、核心词）循环时会出现问题，如附件中的图片
经过用messagebox.show的方法，问题确定是在执行 dr.Checked = True这句代码是报出错的。
我点了四次继续，程序执行的结果却是符合预期效果的。
此主题相关图片如下：01-19.png
代码如下：
Dim rw As Row = Tables("服装标题SEO").current
Dim cis() As String
cis=new String(){ "风格词","季度词","同类词","类目词","属性词","功能词","款式词","核心词" }
For j As Integer = 0 To cis.Length-1
Dim values() As String
Dim str As String = rw(cis(j))
MessageBox.show(cis(j))
If str.Contains(",") Then
values =str.Split(",")
For i As Integer = 0 To values.Length-1
For Each dr As Row In Tables( "产品标题优化_" & cis(j) ).Rows
If values(i)=dr(cis(j)) Then
dr.Checked = True
End If
Next
Next
ElseIf str<>"" Then
For Each dtrtt As Row In Tables( "产品标题优化_" & cis(j) ).Rows
If str=dtrtt(cis(j)) Then
dtrtt.Checked = True
End If
Next
Else
End If
Next
加好友 
发短信
Post By：2015/1/19 17:50:00 [显示全部帖子]
