[求助]datacolchange里面没法定义控件 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想在配货整理窗口勾线确定，右下角能自动统计出配货筛选明细表数量列求和的值。

想直接在datacolchange里面写代码，又没法直接定义控件。

有啥办法可以实现上面的要求？

此主题相关图片如下：控件.png

Dim sum1,sum2 As Integer

If e.DataCol.name = "确定" Then

If e.DataRow("确定") = True Then

Dim dr As DataRow

dr = DataTables("库存明细表").find ("物料编码 = '" & e.DataRow("物料编码") & "' and 库位编码 = '" & e.DataRow("库位编码") & "' And 提示 = '入库完成'","SN")

If dr IsNot Nothing Then

For i As Integer = 1 To e.DataRow("预配货数量")

Dim ndr As DataRow = DataTables("配货筛选明细表").AddNew()

ndr("SN") = dr("SN")

ndr("物料编码") = dr("物料编码")

ndr("库位号") = dr("库位号")

ndr("库位编码") = dr("库位编码")

ndr("数量") = dr("数量")

ndr("标志") = e.DataRow("_Identify")

sum1 = sum1 + DataTables("配货筛选明细表").Compute("count([SN])","物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'")

If Forms("配货整理").Opened Then

Forms("配货整理").Controls("实配货数量").Text = sum1

End If

Else

Dim drs As List(Of DataRow) = DataTables("配货筛选明细表").Select("物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'")

For i As Integer = drs.count - 1 To 0 Step -1

drs(i).delete

sum2 = DataTables("配货筛选明细表").Compute("count([SN])","物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'")

If Forms("配货整理").Opened Then

Forms("配货整理").Controls("实配货数量").Text = sum1 - sum2

End If

这样统计不对吗？

同样的物料编码在配货筛选明细表也有啊。总不能把所有的物料编码都统计进去。

只统计这一次的。

应该这么理解，勾选第一行的确定时，根据条件物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'统计出sum1数量2，显示也是2.

勾选第二行的确定时，根据条件物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'统计出sum2数量1，显示sum应该为sum1+sum2显示为3才对。

如果去掉确定勾时，显示sum应该为sum1-sum2显示为1才对。

就是这样。

应该这么理解，勾选第一行的确定时，根据条件物料编码 = '" & e.DataRow("物料编码") & "' and 标志 = '" & e.DataRow("_Identify") & "'统计出sum1数量2，显示也是2.

如果去掉确定勾时，显示sum应该为sum1-sum2显示为1才对。

就是这样。

没看懂

1、打开窗口记录全部的值sum-------统计条件是啥？每行的_idengty值是不一样的。

2、计算所有的值，减去sum，就是窗口打开以后变化的值。------再次计算所有的值？这又是啥意思？统计的是什么？

请帮忙。

这么说就明白了。

不明白的地方是afterload里面定义的sum1在datacolchange里面又不能用、是不是这个意思？

主题：[求助]datacolchange里面没法定义控件