自动追加行并汇总数量时，出现错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:刀具管理.rar

管理者：qdrA001

想要达到的效果是：

只要“序号”列出现新的内容，就会在“入库”表新增加一行，并且“入库表”中的“数量”列=”采购“表中”检收1_数量“ + ”检收2_数量“

在”采购“的表属性中写了以下代码：

Select Case e.DataCol.Name

Case "序号","检收1_数量","检收2_数量"

If e.DataRow.IsNull("序号") = False

Dim dr6 As DataRow

dr6 = DataTables("入库").Find("序号 = '" & e.NewValue & "'")

If dr6 Is Nothing Then

dr6 = DataTables("入库").AddNew()

dr6("序号") = e.DataRow("序号")

dr6("产品编号") = e.DataRow("编号")

dr6("数量") = e.DataRow("检收1_数量") + e.DataRow("检收1_数量")

End If

DataTables("入库").DataCols("序号").RaiseDataColChanged(dr6)

End If

End Select

出现的问题是：

1.每次更改”检收1_数量“或”检收2_数量“数字，就会追加一行，这不是想要的，想要的是，一个序号，只能为一行。

2.”数量“列的内容也不对，大概看了一下，显示的约是输入数量的2倍，这也不对。

请老师帮看看，谢谢！

Select Case e.DataCol.Name
    Case "序号","检收1_数量","检收2_数量"
        If e.DataRow.IsNull("序号") = False AndAlso e.DataRow.IsNull("检收1_数量") = False
            Dim dr6 As DataRow
            dr6 = DataTables("入库").Find("序号 = '" & e.DataRow("序号") & "'")
            If dr6 Is Nothing Then
                dr6 = DataTables("入库").AddNew()
                dr6("序号") = e.DataRow("序号")
                dr6("产品编号") = e.DataRow("编号")
            End If
            dr6("数量") = e.DataRow("检收1_数量") + e.DataRow("检收2_数量")
            'DataTables("入库").DataCols("序号").RaiseDataColChanged(dr6)
        End If
End Select

谢谢老师，还有一个问题：

我想将”申请“里的现在所有的行都删除，

但有些删不了，找不出原因，请老师帮看看，谢谢！

你把行锁定了，就不能删除，你要解锁行

http://www.foxtable.com/webhelp/scr/0111.htm

主题：自动追加行并汇总数量时，出现错误