以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]自动录入,最后行值相同次数统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193058)

--  作者:185723664
--  发布时间:2024/8/13 16:57:00
--  [求助]自动录入,最后行值相同次数统计
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:1.foxdb

求助,根据最后行_12345678910l列的值,
自动录入:最后行值相同次数统计

图片点击可在新窗口打开查看此主题相关图片如下:求助自动录入,最后行值相同次数统计.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2024/8/13 17:34:00
--  
没看懂。逐行解释一下
--  作者:185723664
--  发布时间:2024/8/13 17:50:00
--  
从左到右数,最后行_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编辑过]

--  作者:有点蓝
--  发布时间:2024/8/13 19:51:00
--  
第1行  从左到右数,最后行_1到最后行_10这10列,最后1个数字】不是3吗?为什么是2?


图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:185723664
--  发布时间:2024/8/14 13:17:00
--  回复:(有点蓝)【第1行  从左到右数,最后行_1...
上图是我把其他表最后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 一样值的相连值数量,求助录入的最右边的列里面

--  作者:有点蓝
--  发布时间:2024/8/14 13:47:00
--  
简单地东西非得说的好复杂,用得着搞那么多花里胡哨的概念!直接说表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
next
e.datarow("统计") = i-1
End If