主题：跨表增减行

以下是引用狐狸爸爸在2011-8-31 10:12:00的发言：

下载信息  [文件大小：15.8 KB  下载次数：12]

点击浏览该文件:管理项目3.rar

错误代码位置：表，货品资料，DataColChanged

System.NullReferenceException: 未设置对象变量或 With 块变量。
   在 Microsoft.VisualBasic.CompilerServices.Symbols.Container..ctor(Object Instance)
   在 Microsoft.VisualBasic.CompilerServices.NewLateBinding.LateGet(Object Instance, Type Type, String MemberName, Object[] Arguments, String[] ArgumentNames, Type[] TypeArguments, Boolean[] CopyBack)
   在 UserCode.DataColChanged(DataColEventArgs e)

"规格"列输入值和清空值会出现以上提示.

这个问题我写的时候就留意到了，解决方法：

将：

    Dim Parts1() As String = e.OldValue.Split("\")
    Dim Parts2() As String = e.NewValue.Split("\")

改为：

Dim Parts1() As String
Dim Parts2() As String
If e.OldValue > "" Then
    Parts1 = e.OldValue.Split("\")
End If
If e.NewValue > "" Then
    Parts2  = e.NewValue.Split("\")
End If

测试还是没通过,如新增一行,在"规格"列输入"265",会有错误提示

下面这段代码就不会出现这种情况,只是不能删除"规格表"对应的行

'数据DataColChanged
If e.DataCol.Name = "规格" Then '
Dim d As String = e.DataRow("规格")
Dim Parts() As String = d.Split("\")
For Each dc As String In Parts
If e.DataRow("规格") > "" Then
        Dim dr As DataRow = DataTables("规格表").Find("货品编号 = '" & e.DataRow("货品编号") & "' And 规格 = '" & dc & "'")
        If dr IsNot Nothing
            Tables("规格表").Position = Tables("规格表").FindRow(dr)
                Else
            Dim r As Row = Tables("规格表").AddNew()
            r("货品编号") = e.DataRow("货品编号")
            r("货品名称") = e.DataRow("货品名称")
            r("规格") = dc
        End If
    End If
Next
End If