主题：关联表内容填充代码请求帮忙

就是两个不同的表同时操作的时候有的时候出入库数量不变化，或者是删除的时候没有删除，我先看看，后续实在搞不懂再来请教吧，谢谢了

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

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

好像原因是因为两个子表的编号重复导致，但是我重新增加了编号2，和编号3怎么都没有用，请老师指教

感谢红袍老师，试用正是我需要的

红袍老师晚上好，以上代码在运行过程中出现了一个问题：

当增加一行后，进行了其它的表编辑后，再回来对增加的行进行删除，就发现删除后，“物料明细”表里面对应的行没有被删除了

还是不行，是不是不可以用计时器设定项目每几分钟保存一次啊

我的“入库明细”表代码：

Select Case e.DataCol.Name
    Case "物料编号","入库数量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [物料编号] = '" & mr("物料编号") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
            mr("库存数量") = mr("入库数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [物料编号] = '" & dr("物料编号") & "'")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("库存数量") = drs(i-1)("库存数量") + drs(i)("入库数量")
        Next
End Select

    DataTables("物料中心").DataCols("物料编号").RaiseDataColChanged("物料编号 = '" &e.DataRow("物料编号") & "'")

If e.DataCol.Name = "物料编号" Then
    Dim nms() As String = {"物料名称","规格型号","单位"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
       
        dr = DataTables("物料中心").Find("[物料编号] = '" & e.NewValue & "'")                   
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

 

Select Case e.DataCol.name
    Case  "物料名称","规格型号","物料编号", "入库数量","入库单号","交易日期","供货厂家","备注"
        Dim dr As DataRow = DataTables("物料明细").Find("编号 = '入库" & e.DataRow("_Identify") & "'")
        If dr Is Nothing Then
            dr = DataTables("物料明细").addnew
e.DataRow.save
            dr("编号") = "入库" & e.DataRow("_Identify")
        End If
       
        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
       
    End  Select

 

“散件明细”表代码：

If e.DataCol.Name = "物料编号" Then
    Dim nms() As String = {"物料名称","规格型号","单位"}
    If e.NewValue Is Nothing Then
        For Each nm As String In nms
            e.DataRow(nm) = Nothing
        Next
    Else
        Dim dr As DataRow
       
        dr = DataTables("物料中心").Find("[物料编号] = '" & e.NewValue & "'")                   
        If dr IsNot Nothing
            For Each nm As String In nms
                e.DataRow(nm) = dr(nm)
            Next
        End If
    End If
End If

DataTables("物料中心").DataCols("物料编号").RaiseDataColChanged("物料编号 = '" &e.DataRow("物料编号") & "'")

Select Case e.DataCol.name
    Case  "物料名称","规格型号","物料编号", "出库数量","出库单号","交易日期","客户","备注"
        Dim dr As DataRow = DataTables("物料明细").Find("编号 = '出库" & e.DataRow("_Identify") & "'")
        If dr Is Nothing Then
            dr = DataTables("物料明细").addnew
e.DataRow.save
            dr("编号") = "出库" & e.DataRow("_Identify")
        End If
       
        dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
       
    End  Select

 

是否代码有冲突啊

 

有其他人不能看的个人信息内容，所以删除了
请求老师帮忙看看，是说明原因导致的

 

数据库传送说是文件类型不正确，传不上啊，问题就是23楼所述，先再采购入库里增加明细，后在散件发货里增加明细，再到其它的地方（随便操作）后，返回来在采购入库明细里进行删除动作，就会发现物料中心里的物料明细里的内容没有被删除

怎样上传mdb文件啊

21楼的独立例子就没有这样的问题

问题一样

 

因为表中有很多包括银行卡号，身份证号码等东西，不太合适太多人阅览，所以老师下载后我就删除了

请老师协助解决问题后删除

谢谢

yy090424