主题：这个需求该如何来实现

方法一：给缓存列赋值，但是不是写在drawcell事件，而是写在AfterLoadTableSetting。

方法二：加一列，或者直接在缓存列记录各个用户的信息，然后直接和user.name比较。

 回复3楼。

1、你加载的数据有10万行吗？你加载多少条就判断多少条；

2、你不需要每次打开的时候判断。之前判断过的，可以不判断了吧？值是存放起来的。如果想刷新，单独做个按钮刷新。

1、算法优化。如果用户存放的文件较少，那可以循环用户的文件，查找表数据。如果用户存放的文件较多，那就循环表数据，查找文件。

2、为什么不能保存用户的信息？一个单元格，可以保存多个值，如 张三、李四、王五，然后判断。

你可以直接find

Dim path As String = ProjectPath & "RemoteFiles\"
For Each File As String In FileSys.GetFiles(path)
    Dim name As String = filesys.GetName(file)

    Dim fdr As Datarow = DataTables("表A").Find("资料名称 = '" & name & "'")
Next

Dim path As String = ProjectPath & "RemoteFiles\"
For Each File As String In FileSys.GetFiles(path)
    Dim name As String = filesys.GetName(file)
    Dim fdr As DataRow = DataTables("表A").Find("资料名称 = '" & name & "'")
    If fdr IsNot Nothing Then
        fdr("缓存")="3"
    End If
Next
DataTables("表A").ReplaceFor("缓存", 0, "缓存 = 1")
DataTables("表A").ReplaceFor("缓存", 1, "缓存 = 3")

如果你表数据本来有值，如 1、1、1、0、0、0

你循环文件，修改后，可能改成  1、3、3、3、0、3

那么，就要处理掉本来的数据，修改成 0、1、1、1、0、1

请直接用我给你的代码

Dim path As String = ProjectPath & "RemoteFiles\"
For Each File As String In FileSys.GetFiles(path)
    Dim name As String = filesys.GetName(file)
    Dim fdr As DataRow = DataTables("表A").Find("资料名称 = '" & name & "'")
    If fdr IsNot Nothing Then
        fdr("缓存")="3"
    End If
Next
DataTables("表A").ReplaceFor("缓存", 0, "缓存=1 or 缓存 is null")  '你的代码是  缓存=1,实际上即使不存在缓存,数据表中也没有等于1的值,所以我改为判断是否是空值
DataTables("表A").ReplaceFor("缓存", 1, "缓存 = 3")