为了根据产品的代码生成其对应的相关产品信息，我在“货品信息”表的datacolchanged事件中编写了如下代码：

If e.NewValue = Nothing Then
    Return
End If
Dim dr As DataRow
Dim hh,xl,xb,jb,nf,pp As String
Dim v,i As Integer
hh = e.NewValue
For i = 0 To hh.length - 1
    If Char.IsDigit(hh.Substring(i,1)) Then
        v = i
        Exit For
    End If
Next

xl = hh.Substring(0,v)
nf = hh.Substring(v,2)
xb = hh.Substring(v + 2,1)
jb = hh.Substring(v + 3,1)

dr = DataTables("系列信息").Find("代码 =\'" & xl & "\'")
If dr IsNot Nothing Then
    xl = dr("系列")
    pp = dr("品牌")
End If

MessageBox.Show(1)

dr = DataTables("性别信息").Find("代码 =\'" & xb & "\'")
If dr IsNot Nothing Then
    xb = dr("性别")
End If

MessageBox.Show(2)

dr = DataTables("季别信息").Find("代码 =\'" & jb & "\'")
If dr IsNot Nothing Then
    jb = dr("季别")
End If

MessageBox.Show(3)

dr = e.DataRow
dr("年份") = nf
MessageBox.Show(3.1)

dr("季别") = jb

MessageBox.Show(3.2)
dr("性别") = xb

MessageBox.Show(3.3)
dr("系列") = xl

MessageBox.Show(3.4)
dr("品牌") = pp

运行到MessageBox.Show(3)以后出现如下错误提示：

此主题相关图片如下：2013-09-13 18 23 26.png

叉掉错误提示窗口，运行到MessageBox.Show(3.1)，dr("年份") = nf 正确生成，再次出现同样的错误提示。

叉掉错误提示窗口，运行到MessageBox.Show(3.2)，dr("季别") = jb 正确生成，又一次出现同样的错误提示，以此类推，直至结束。

不知道问题出在哪里，请教各位！

感谢程兴刚，提醒得太对了！

我居然把这茬给忘了，简直弱智！