[求助]自动录入，最后行值相同次数统计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:1.foxdb

求助,根据最后行_12345678910l列的值，

自动录入：最后行值相同次数统计

此主题相关图片如下：求助自动录入，最后行值相同次数统计.jpg

没看懂。逐行解释一下

从左到右数，最后行_1到最后行_10这10列，按每一行，最后行_1数字一样的列连续出现的列数（从左到右，最后行_1往最后行_10）统计在最右1列（最后行值相同次数统计）

第1行从左到右数，最后行_1到最后行_10这10列，最后1个数字2，有1个，最后行值相同次数统计列自动录入 1

第2行从左到右数，最后行_1到最后行_10这10列，最后1个数字2，有2个，最后行值相同次数统计列自动录入 2

第3行从左到右数，最后行_1到最后行_10这10列，最后1个数字2，有3个，最后行值相同次数统计列自动录入 3

第4行从左到右数，最后行_1到最后行_10这10列，最后1个数字2，有4个，最后行值相同次数统计列自动录入 4

第5行从左到右数，最后行_1到最后行_10这10列，最后1个数字1，有1个，最后行值相同次数统计列自动录入 1

第6行从左到右数，最后行_1到最后行_10这10列，最后1个数字1，有2个，最后行值相同次数统计列自动录入 2

第7行从左到右数，最后行_1到最后行_10这10列，最后1个数字1，有3个，最后行值相同次数统计列自动录入 3

第8行从左到右数，最后行_1到最后行_10这10列，最后1个数字1，有4个，最后行值相同次数统计列自动录入 4

第9行从左到右数，最后行_1到最后行_10这10列，最后1个数字4，有1个，最后行值相同次数统计列自动录入 1

第10行从左到右数，最后行_1到最后行_10这10列，最后1个数字4，有1个，最后行值相同次数统计列自动录入 2

[此贴子已经被作者于2024/8/13 18:31:37编辑过]

【第1行从左到右数，最后行_1到最后行_10这10列，最后1个数字】不是3吗？为什么是2？

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

上图是我把其他表最后10行，转过来的，所有取了一个容易误解的最后行_x 的列名

最后行_1 就是其他表的最后1行

最后行_2 就是其他表的倒数第2行

最后行_3 就是其他表的倒数第3行

最后行_4 就是其他表的倒数第4行

最后行_5 就是其他表的倒数第5行

最后行_6 就是其他表的倒数第6行

最后行_7 就是其他表的倒数第7行

最后行_8 就是其他表的倒数第8行

最后行_9 就是其他表的倒数第9行

最后行_10 就是其他表的倒数第10行

上图就从左到右，最后行_1、最后行_2、最后行_3、最后行_4、最后行_5、最后行_6、最后行_7、最后行_8、最后行_9、最后行_10

与最后行_1 一样值的相连值数量，求助录入的最右边的列里面

简单地东西非得说的好复杂，用得着搞那么多花里胡哨的概念！直接说表A每一行从第一个列开始，有几个连续的列值是一样的就行了。

到datacolchanged事件遍历所有列判断

If e.DataCol.Name.contains("最后行_") Then

din a as string = e.datarow("最后行_1")

dim i as integer

for i = 2 to 10

if a <> e.datarow("最后行_" & i) then

exit for

end if

e.datarow("统计") = i-1
End If

主题：[求助]自动录入，最后行值相同次数统计