d:\zp 中有很多照片，如张三峰在北京，张三峰在湖南，张三峰在上海，李四新在湖南，李四新在北京，李四新在广州。。。。。。。。。
表A 有两列
姓名 照片
张三峰
李四新
：
：
想从D:\ZP 中，按姓名将每个人的在表A中归类，编如下代码后，没有归类，将所有照片全部导入了记录的照片列，请老师修改：
For Each F As String In FileSys.GetFiles("D:\ZP\")
Dim ifo As new FileInfo(f)
Dim name As String = ifo.name.Replace(ifo.Extension, "")
Dim A As String
a=name
Dim bb As String
bb=a.Substring(0,3)
Dim fdr As DataRow = DataTables("表A").Find(" 姓名 = '" & bb & "'")
If fdr IsNot Nothing Then
fdr("照片") ="d:\zP\"&Ifo.Name
End If
Next
截取函数也好像用得也不合适，因为有单名或四个字姓名的
谢谢！
加好友 
发短信
Post By：2017/6/24 22:46:00 [只看该作者]
