Dim dlg As New FolderBrowserDialog
Dim czkh As DataRow
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
For Each dr As DataRow In DataTables("商户资料表").Select("法人姓名 is not null")
Dim str As String = dr("法人姓名")
czkh =DataTables("客户资料").find("客户姓名= '" & str & "'") '精确查找
If czkh.isnull("身份证号") = False Then
str = str & right(czkh ("身份证号"),6)
End If
If dr.isnull("通道简称") = False Then
str = str & dr("通道简称")
End If
If dr.isnull("子系统") = False Then
str = str & dr("子系统")
End If
If dr.isnull("商户名称简称") = False Then
str = str & dr("商户名称简称")
End If
For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
Dim name As String = FileSys.GetName(file)
If name.Contains(str) Then
FileSys.CopyFile(file, ProjectPath & "照片\商户经营照片/" & name, True)
Dim ls = dr.Lines("商户照片")
If ls.contains(name) = False Then
ls.add(name)
dr.lines("商户照片") = ls
End If
End If
Next
Next
DataTables("商户资料表").datacols("商户照片").DefaultFolder = ProjectPath & "照片\商户经营照片/"
End If
我在绑定照片的时候写了以上代码，是不是也得改了吗？把蓝色的的部分改成“新增的字段”因为红色的部分客户几乎是不会改的
[此贴子已经被作者于2018/12/28 16:36:39编辑过]
加好友 
发短信
Post By：2018/12/28 13:14:00 [只看该作者]
