以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载窗体过程中的错误,错误信息难解  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63369)

--  作者:sjzsdu
--  发布时间:2015/1/19 17:50:00
--  加载窗体过程中的错误,错误信息难解
奇怪了!
代码执行过程中,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

--  作者:有点甜
--  发布时间:2015/1/19 17:57:00
--  

 呃,这段代码不应该有问题的。

 

 如果有问题,可能性

 

1、触发了表事件  BeforeCheckRow 或 AfterCheckRow 事件的代码;

 

2、Tables("服装标题SEO").current 是空值


--  作者:sjzsdu
--  发布时间:2015/1/19 19:32:00
--  
可能是第一种可能,表中有AfterCheckRow事件代码的。
还搞不明白的是,为什么奇数类(风格词、同类词、属性词、款式词)执行循环过程中,却不会报错误呢。


--  作者:有点甜
--  发布时间:2015/1/19 19:37:00
--  

 具体例子发上来。

 

 或者试试停止触发对应事件 http://www.foxtable.com/help/topics/2218.htm