政策文件表
的列”文件名称“用来存放一个文件夹（文件夹为：ProjectPath & "AllMyFiles\法律法规文件\"）里面所有的文件名，现做一个按钮用来更新政策文件表
“文件名称”列中的文件名，使之与文件夹中的文件名保持一致。即文件夹的文件名有增减，则政策文件表
中文件名称列中也跟着增减我的代码是：
Dim Values As new List(Of String)
Dim Value As String
Dim lj As String= ProjectPath & "AllMyFiles\法律法规文件\"
For Each f As String In FileSys.GetFiles(lj)
Values .add(FileSys.GetName(f))
Next
For Each Value In Values
Dim dc As DataRow =DataTables("政策文件表").Find("文件名称='" & value & "'")
If dc Is Nothing Then
Dim xujh As Row =Tables("政策文件表").AddNew()
xujh("文件名称")=value
End If
Next
这代码中政策文件表的文件名称列的记录，只保持文件夹的曾，却不能保持文件夹的减。如何做到增减都保持？
[此贴子已经被作者于2019/12/4 14:43:27编辑过]
加好友 
发短信
Post By：2019/12/4 14:42:00 [只看该作者]
