Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教，excel 报表相对定位的表达式 要怎么写


  共有1483人关注过本帖树形打印复制链接

主题：请教，excel 报表相对定位的表达式 要怎么写
帅哥哟，离线，有人找我吗？
kao_go
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00 		请教，excel 报表相对定位的表达式 要怎么写  发帖心情 Post By：2024/9/20 19:26:00 [只看该作者]

请教版主：
  第一列的表达式   是这样，<[gg1dm] & "(" & [gg1mc] & ")">
第二列的表达式<[gg1dm+1] & "(" & [gg1mc+1] & ")">   这样不生效，正确的要怎么写
[此贴子已经被作者于2024/9/20 19:26:55编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110851 积分：564199 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/21 9:03:00 [只看该作者]

模板发上来看看

 回到顶部
帅哥哟，离线，有人找我吗？
kao_go
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00 		  发帖心情 Post By：2024/9/21 9:24:00 [只看该作者]

相对定位，在表达式中没生效，其他的生效
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:mb-小图册.xlsx
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110851 积分：564199 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/21 9:44:00 [只看该作者]

试试：http://www.foxtable.com/webhelp/topics/2117.htm

<*[gg1dm+1]* & "(" & *[gg1mc+1]* & ")">
 回到顶部
帅哥哟，离线，有人找我吗？
kao_go
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00 		  发帖心情 Post By：2024/9/21 9:50:00 [只看该作者]

可以了，是我没看到下面那条帮助，谢谢蓝版！

 回到顶部
帅哥哟，离线，有人找我吗？
kao_go
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00 		  发帖心情 Post By：2024/9/21 10:11:00 [只看该作者]

甜版，引用图片的，按以下这样写，不生效，
[<*"&&J:\web\tupian\shangpin\da\" & *[spdm+1]* & "-" & *[gg1dm+1]* &  ".jpg"*>, 50, 10, 150, 150]

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110851 积分：564199 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/21 10:20:00 [只看该作者]

试试

[<*"&&J:\web\tupian\shangpin\da\" & [spdm+1] & "-" & [gg1dm+1] &  ".jpg"*>, 50, 10, 150, 150]
 回到顶部
帅哥哟，离线，有人找我吗？
kao_go
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：579 积分：4940 威望：0 精华：0 注册：2014/4/29 14:32:00 		  发帖心情 Post By：2024/9/21 10:22:00 [只看该作者]

[<*"&&J:\web\tupian\shangpin\da\" & [spdm+1] & "-" & [gg1dm+1] &  ".jpg"*>, 50, 10, 150, 150]  这样不生效

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110851 积分：564199 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/9/21 11:57:00 [只看该作者]

表达式过于复杂，只能使用报表事件处理了

把模板第2、3、4个图片改为

图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看

然后报表事件BuildDetail代码，注意下面只处理了第2、3个图片，第4个图片的代码自己参考添加

If e.DataRow IsNot Nothing Then
    Dim idx As Integer = Tables("表A").FindRow(e.DataRow)
    If idx > -1 Then
        Dim fla As String = ProjectPath & "Images\a.jpg"
        Dim flb As String = ProjectPath & "Images\b.jpg"
        If idx + 1 < Tables("表A").Rows.Count Then
            Dim r As Row = Tables("表A").Rows(idx + 1)
            Dim fl As String = ProjectPath & "Images\" & r("spdm") & "_" & r("gg1dm") & ".jpg"
            If FileSys.FileExists(fl) Then
                FileSys.CopyFile(fl, fla, True)
            Else
                FileSys.DeleteFile(fla, 2, 2)
            End If
            If idx + 2 < Tables("表A").Rows.Count Then
                r = Tables("表A").Rows(idx + 2)
                fl = ProjectPath & "Images\" & r("spdm") & "_" & r("gg1dm") & ".jpg"
                If FileSys.FileExists(fl) Then
                    FileSys.CopyFile(fl, flb, True)
                Else
                    FileSys.DeleteFile(fla, 2, 2)
                End If
            Else
                FileSys.DeleteFile(flb, 2, 2)
            End If
        Else
            FileSys.DeleteFile(fla, 2, 2)
        End If
        
    End If
End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询