专家坐堂-这段代码哪里不对Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这段代码哪里不对  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109479)

--  作者：恒隆君
--  发布时间：2017/11/13 13:51:00
--  这段代码哪里不对

Select Case MainTable.Name
Case "刀具验收"
Dim r As Row = Tables("刀具验收").Current
Dim ls = r.DataRow.Lines("图片")
FileSys.CopyFile(e.FullPath,"\\\\Wuyd9m8cjk2\\tms\\刀具检验图片\\"r("刀具名称") & ls.Count & ".jpg"",True)
ls.add(r("刀具名称") & ls.Count & ".jpg")
r.DataRow.lines("图片") = ls
End Select

--  作者：有点甜
--  发布时间：2017/11/13 15:10:00
--
Select Case MainTable.Name
    Case "刀具验收"
        Dim r As Row = Tables("刀具验收").Current
        Dim ls = r.DataRow.Lines("图片")
        FileSys.CopyFile(e.FullPath,"\\\\Wuyd9m8cjk2\\tms\\刀具检验图片\\" & r("刀具名称") & ls.Count & ".jpg",True)
        ls.add(r("刀具名称") & ls.Count & ".jpg")
        r.DataRow.lines("图片") = ls
End Select