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

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)
---------------------------
确定
---------------------------

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

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

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

主题：组合代码编写 求助

主题：组合代码编写求助