主题：组合代码编写 求助

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