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


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

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

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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望: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 ‘*字符*’")


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望: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目录,那么最后一行代码不要


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/29 14:23:00 [显示全部帖子]

你可以在AfterLoad事件中加上代码:

 

Dim lst As new List(of String)
For Each r As DataRow In DataTables("员工").DataRows
    If r.IsNull("照片") = False Then
        lst.add(r("照片").Tolower)
    End If
Next
For Each fl As String In filesys.GetFiles(ProjectPath & "\Attachments")
    fl = filesys.getname(fl).Tolower
    If fl.EndsWith(".jpg") Then
        If lst.Contains(fl)=False Then
            Dim dr As DataRow = DataTables("员工").AddNew
            dr("照片") = fl
        End If
    End If
Next


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/29 16:46:00 [显示全部帖子]

再将这些文件复制到Attatchments目录


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


加好友 发短信
等级:管理员 帖子:47448 积分:251048 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/29 16:49:00 [显示全部帖子]

Dim lst As new List(of String)
For Each r As DataRow In DataTables("员工").DataRows
    If r.IsNull("照片") = False Then
        lst.add(r("照片").Tolower)
    End If
Next
For Each fln As String In filesys.GetFiles(ProjectPath & "\Attachments")
    Dim fl As String  = filesys.getname(fln).Tolower
    If fl.EndsWith(".jpg") Then
        If lst.Contains(fl)=False Then
            Dim dr As DataRow = DataTables("员工").AddNew
            dr("照片") = fl
            FileSys.CopyFile(fln, ProjectPath & "Attachments\" & fl,True)
        End If
    End If
Next

 回到顶部