主题：如何利用扫描仪，给一个项目中多张表中的指定列项，自动存储更名的照片。

分开判断不就好了？

Select Case CurrentTable.name
    Case "文档"
        Dim r As Row = Tables("文档").Current
        Dim str As String = r("文档照片")
        Dim count As Integer = str.Replace(chr(10), "").Split(chr(13)).length
        FileSys.CopyFile(e.FullPath, ProjectPath & "文档照片\" & r("文档编号") & count,True)
        r("文档照片") = iif(str>"", vbcrlf, "") & r("文档编号") & count

    Case "fa piao"
       
    Case "合同"
       
End Select