Foxtable(狐表)用户栏目专家坐堂 → [求助]求助,如何统计某一列中某个字符出现的次数,讲统计结果显示到另一张表的某个单元格中?


  共有9720人关注过本帖树形打印复制链接

主题:[求助]求助,如何统计某一列中某个字符出现的次数,讲统计结果显示到另一张表的某个单元格中?

帅哥哟,离线,有人找我吗?
effective
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
[求助]求助,如何统计某一列中某个字符出现的次数,讲统计结果显示到另一张表的某个单元格中?  发帖心情 Post By:2013/3/26 12:17:00 [只看该作者]

求助,如何统计某一列中某个字符出现的次数,讲统计结果显示到另一张表的某个单元格中?

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/26 14:16:00 [只看该作者]

Dim cnt As Integer

cnd = DataTables("表A").Compute("Count([_Identify])", "某列 Like ‘*字符*’")


 回到顶部
帅哥哟,离线,有人找我吗?
effective
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
  发帖心情 Post By:2013/3/26 16:42:00 [只看该作者]

是在内部函数里面输入这段代码吗?

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/26 16:57:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
effective
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
  发帖心情 Post By:2013/3/26 19:45:00 [只看该作者]

如何操作?

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/27 8:07:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
effective
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
  发帖心情 Post By:2013/3/27 13:34:00 [只看该作者]


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

图片点击可在新窗口打开查看此主题相关图片如下:生产线次品统计.png
图片点击可在新窗口打开查看

 

1、统计菜单我做了,我把你给的代码复制到统计菜单的click事件里面,然后系统提示无法运行like命令

2、还想问一个问题,怎么样用文件监视器,监视文件里新增的图片,检测到这个文件夹新增了几张图片,然后这张表就自动增加几行,同时把照片加载到表的照片列,求代码。


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/27 16:13:00 [只看该作者]

1、只有字符列,才能用Like比较的
2、设置好监视目录,然后设置FileCreated事件:
 
Dim r As Row = Tables("员工").AddNew
r("照片") = e.Name

FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & e.Name,True)

 

如果你监视的就是Attachments目录,那么最后一行代码不要


 回到顶部
帅哥哟,离线,有人找我吗?
effective
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
  发帖心情 Post By:2013/3/28 14:19:00 [只看该作者]

thank you

 回到顶部
帅哥哟,离线,有人找我吗?
effective
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:244 威望:0 精华:0 注册:2013/3/24 14:37:00
  发帖心情 Post By:2013/3/29 13:04:00 [只看该作者]

在监视的文件里加入新的图片,为什么只是在软件打开的情况下加载进来?而且监视的文件里一次只能加入一张图片,软件才会加载。如果要在打开软件的时候,扫描文件里新加进来的图片(好几张),并且增加表里的行数来加载这些图片,该怎么修改?     
这是文件监视器click的代码。

Dim r As Row = Tables("信息标注").AddNew
r("照片") = e.Name

FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & e.Name,True)
[此贴子已经被作者于2013-3-29 13:05:43编辑过]

 回到顶部
总数 15 1 2 下一页