主题：[求助]复选框控制的表关联更新

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

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

里面原有的程序可以修改,"当检验记录"确认"被选中时,来货记录对应行被锁定"这个功能已经可以实现,但"来货记录中的单行"提交"被选中时,检验记录新增一行"功能不是很完美,存在重复提交的现象,不希望重复新增.可以修改,同步更新即可.

编程放在datacolchanged 里面还有一个问题,当新增来货记录时还没等到"提交"选中,我的品检表已经新增了一个空行.这个不可以有的.

功能1之前我已经给你写过了.

是的.非常感谢你给我的程序,我有仔细测试过,但第一步就是存在"当新增来货记录时还没等到"提交"选中,我的品检表已经新增了一个空行.这个不可以有的,而且有个重复提交的问题."我很困扰!

    

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

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

"大红袍"的程序把重复提交的问题也解决了,但当来货记录新增时到保存时,品检记录还是会自动增加一个空行

Datacolchanged事件代码要改一下

 

Select Case e.DataCol.name
    Case "流水号"
        If e.DataRow("提交") = True Then
            Dim dr As DataRow = DataTables("检验记录").Find("流水号 = '" & e.OldValue & "'")
            If dr Is Nothing Then
                dr = DataTables("检验记录").AddNew()
                dr("流水号") = e.DataRow("流水号")
                dr("送货类别") = e.DataRow("类别")
                dr("厂商") = e.DataRow("厂商")
                dr("零件编号") = e.DataRow("零件编号")
                dr("来货数量") = e.DataRow("来货数量")
                dr("收货人") = e.DataRow("接收人")
                dr("接货时间")=Date.now
                dr("处理状态")="待处理"
            Else
                dr("流水号") = e.DataRow("流水号")
            End If
        End If
    Case "提交"
        If e.DataRow.IsNull("流水号") = False Then
            If e.DataRow("提交") = True
                Dim dr As DataRow = DataTables("检验记录").Find("流水号 = '" & e.DataRow("流水号") & "'")
                If dr Is Nothing Then
                    dr = DataTables("检验记录").AddNew()
                    dr("流水号") = e.DataRow("流水号")
                End If
                dr("流水号") = e.DataRow("流水号")
                dr("送货类别") = e.DataRow("类别")
                dr("厂商") = e.DataRow("厂商")
                dr("零件编号") = e.DataRow("零件编号")
                dr("来货数量") = e.DataRow("来货数量")
                dr("收货人") = e.DataRow("接收人")
                dr("接货时间")=Date.now
                dr("处理状态")="待处理"
            End If
        End If
    Case "流水号","送货类别","厂商","零件编号","来货数量","收货人"
        Dim dr As DataRow = DataTables("检验记录").Find("流水号 = '" & e.DataRow("流水号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select
If e.DataCol.Name = "收货日期" Then
    If e.DataRow.IsNull("收货日期") Then
        e.DataRow("流水号") = Nothing
    Else
        Dim bh As String = Format(e.DataRow("收货日期"),"yyyyMMdd") '取得编号的8位前缀
        If e.DataRow("流水号").StartsWith(bh) = False '如果编号的前8位不符
            Dim max As String
            Dim idx As Integer
            max = e.DataTable.Compute("Max(流水号)","收货日期= #" & e.DataRow("收货日期") & "# And [_Identify] <> " & e.DataRow("_Identify")) '取得该天的最大编号
            If max > "" Then '如果存在最大编号
                idx = CInt(max.Substring(9,3)) + 1 '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("流水号") = bh & "-" & Format(idx,"000")
        End If
    End If
End If