Dim cnt As Integer

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

此主题相关图片如下：信息标注.png


此主题相关图片如下：生产线次品统计.png

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

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

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

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

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

你可以在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