以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表A生成表B行数及奇偶个数  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=179477)

--  作者:miaoqingqing
--  发布时间:2022/8/25 21:16:00
--  [求助]表A生成表B行数及奇偶个数
求助,表A生成表B行数及奇偶个数
狐表版本不能升级,是22年2月份的版本,代码辛苦版主贴出了,感谢

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:表a生成表b行数及奇偶个数.foxdb


--  作者:有点蓝
--  发布时间:2022/8/25 21:34:00
--  
没看懂,解释一下
--  作者:miaoqingqing
--  发布时间:2022/8/25 21:42:00
--  回复:(有点蓝)没看懂,解释一下

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

蓝总,想希望点击窗口按钮执行,在表A,录入
表B的表名,表B的列名,该列的行数,表B该列行中的值个数统计

--  作者:有点蓝
--  发布时间:2022/8/25 21:48:00
--  
dim r as row = tables("表A").rows(0)
for i as integer = 1 to r("奇")
dim nr as row = tables("表B").addnew
nr(r("列名")) = "奇"
next
for i as integer = 1 to r("偶")
dim nr as row = tables("表B").addnew
nr(r("列名")) = "偶"
next

--  作者:miaoqingqing
--  发布时间:2022/8/25 22:31:00
--  回复:(有点蓝)dim r as row = tables("表A").rows(...
蓝主,报错,不懂怎么修改,有空帮忙完善一下上楼代码了
--  作者:有点蓝
--  发布时间:2022/8/25 22:49:00
--  
报什么错?

把奇偶这些列改为整数列

--  作者:miaoqingqing
--  发布时间:2022/8/26 15:21:00
--  回复:(有点蓝)报什么错?把奇偶这些列改为整数列
蓝主,上面的代码是根据表A在  表B新增行,不是想要的功能,可能是我之前的表达不清楚
想实现的功能是: 表A新增1行,对表B的百奇偶列中的值奇偶的个数进行统计

--  作者:有点蓝
--  发布时间:2022/8/26 15:27:00
--  
http://www.foxtable.com/webhelp/topics/0393.htm,看实例三统计个数的用法