主题：跨表增减行

"货品资料"表的"规格"列变动时,"规格表"货品编号相同的行随着增减,请问如何设置?

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

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

请老大看一下,如何设置?

比如:"货品资料"表中的"规格"列原来的值是"大\中\小","规格表"中对应3行,"规格"列的值分别是"大" 、“中”、“小”；

 

如果:"货品资料"表中的"规格"列原来的值由原来的"大\中\小"改为：“大\中”，那么"规格表"中对应只有2行,"规格"列的值分别是"大" 、“中”；

 

如果:"货品资料"表中的"规格"列原来的值由原来的"大\中\小"改为：“大\中\小\加大”，那么"规格表"中对应有4行,"规格"列的值分别是"大" 、“中”、“小”、“加大”；　

 

现在的设置是只能增加行，不会减少行，请问如何设置？　

把“大”、“小”改为变量，请测试一下。

如果"货品资料"表的"规格"列的值被清空,"规格表"对应的行也全部删除,请问如何设置?

 

 

错误代码位置：表，货品资料，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)

 

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

测试还是没通过,如新增一行,在"规格"列输入"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

 

 

谢谢