用这个事件:
http://www.foxtable.com/help/topics/2637.htm
可以很好地解决你的问题:
If e.DataCol.Name = "文件列名称" Then
Dim fn1 As String = "\\192.168.0.228\img\工艺图\" & FileSys.GetName(e.Filename) '新的文件名和路径
Dim fn2 As String = "\\192.168.0.228\img\蜡模\" & FileSys.GetName(e.Filename) '新的文件名和路径
Dim fn3 As String = "\\192.168.0.228\img\货版\" & FileSys.GetName(e.Filename) '新的文件名和路径
If filesys.FileExists(fn1) Then
e.FileName = fn1
ElseIf filesys.FileExists(fn2) Then
e.FileName = fn2
ElseIf filesys.FileExists(fn3) Then
e.FileName = fn3
End If
End If