政策文件表
的列”文件名称“用来存放一个文件夹(文件夹为: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编辑过]