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

版主您好，我的资料模块想每次打开模块的时候，判断当前用户是否已经下载了这个资料，并在“缓存”这一列显示。

方法一：给缓存列赋值，但是不是写在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

    Datatables("表A").Rows(fdr)(“缓存”)=“0”

    else

      Datatables("表A").Rows(fdr)(“缓存”)=“1”

     End if

Next