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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  组合代码编写求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53159)

--  作者：yifan3429
--  发布时间：2014/7/1 11:23:00
--  组合代码编写求助

Case "配图_A","配图_竖A","配图_横A"
            e.SubFolder = dr("文件归档") & "\\" & "帮助配图"

        Case "配图_A附件","配图_竖A附件","配图_横A附件"
            SystemReady = False
            e.SubFolder =dr("文件归档") & "\\" & "帮助配图"
            dr("配图_A","配图_竖A","配图_横A") = iif(dr.IsNull("配图_A","配图_竖A","配图_横A"), e.SubFolder & "\\" & e.FileName, dr("配图_A","配图_竖A","配图_横A") & chr(13) & e.SubFolder & "\\" & e.FileName)
            SystemReady = True

红色的这段要怎么修改，现在这样会有错误提示

---------------------------
错误
---------------------------
编译错误:没有可访问的“Item”接受此数目的参数，因此重载决策失败。

错误代码：dr("配图_A","配图_竖A","配图_横A") = iif(dr.IsNull("配图_A","配图_竖A","配图_横A"), e.SubFolder & "\\" & e.FileName, dr("配图_A","配图_竖A","配图_横A") & chr(13) & e.SubFolder & "\\" & e.FileName)
---------------------------
确定
---------------------------

--  作者：有点甜
--  发布时间：2014/7/1 11:26:00
--
Case "配图_A","配图_竖A","配图_横A"
    e.SubFolder = dr("文件归档") & "\\" & "帮助配图"


Case "配图_A附件","配图_竖A附件","配图_横A附件"
    SystemReady = False
    e.SubFolder =dr("文件归档") & "\\" & "帮助配图"
    dr(e.DataCol.name) = iif(dr.IsNull(e.DataCol.name), e.SubFolder & "\\" & e.FileName, dr(e.DataCol.name) & chr(13) & e.SubFolder & "\\" & e.FileName)
    SystemReady = True

--  作者：zyqzyy
--  发布时间：2014/7/1 11:29:00
--

‘楼主试一下：    "\\"后面跟的是文件夹，“/”后面跟的是文件名

dr("配图_A","配图_竖A","配图_横A") = iif(dr.IsNull("配图_A","配图_竖A","配图_横A"), e.SubFolder & "/" & e.FileName, dr("配图_A","配图_竖A","配图_横A") & chr(13) & e.SubFolder & "/" & e.FileName)