请教：单引号，双引号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教：单引号，双引号

共有1793人关注过本帖树形打印复制链接主题：请教：单引号，双引号

bahamute

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1421 积分：11294 威望：0 精华：0 注册：2008/9/1 22:20:00

请教：单引号，双引号 发帖心情

Post By：2018/11/27 9:12:00 [只看该作者]

.AddImage("./HRlogsFiles/" & dr1("文件名"))

需要在Attribute 中加入 onclick 和 style ，就是无法通过编译，单引号，双引号搞的头晕目眩

特来请教，以下两行代码如何拼接到.AddImage 的 Attribute 中去？

"o n c l i c k=""showGallery('gla1','./HRlogsFiles/' & dr1("文件名") & "' )"""

"style='margin: 0 auto;display: block;width:90%;height:90%;box-shadow: 10px 10px 10px rgba(0,0,0,.5);'"

[此贴子已经被作者于2018/11/27 9:45:00编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106677 积分：542574 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/11/27 11:25:00 [只看该作者]

.Attribute = " & dr1("文件名") & "')"" style = 'margin: 0 auto;display: block;width:90%;height:90%;box-shadow: 10px 10px 10px rgba(0,0,0,.5);'"

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/27 11:46:00 [只看该作者]

"onclick=""showGallery('gla1','./HRlogsFiles/" & dr1("文件名") & "')"" style='margin: 0 auto;display: block;width:90%;height:90%;box-shadow: 10px 10px 10px rgba(0,0,0,.5);'"

bahamute

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1421 积分：11294 威望：0 精华：0 注册：2008/9/1 22:20:00

Post By：2018/11/27 13:47:00 [只看该作者]

还是出错：

编译错误:应为“)”

.AddImage("./HRlogsFiles/" & dr1("文件名"),"o n c lick= ""showGallery('gla1', "'./HRlogsFiles/" & dr1("文件名") & "') "" style='margin: 0 auto;display: block;width:90%;height:90%;box-shadow: 10px 10px 10px rgba(0,0,0,.5);')"

[此贴子已经被作者于2018/11/27 14:13:19编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/27 15:12:00 [只看该作者]

Select Case e.Path
    Case "test.htm", ""
        Dim wb As new WeUI
        Dim file = "001.jpg"
        With wb.AddArticle("","ar1")
            .AddContent("Write your Sad Times in Sand, Write your Good Times in Stone.-- George Bernard Shaw")
            .AddImage("./images/001.jpg","onclick=""showGallery('gla1','./images/" & file & "')"" style='margin: 0 auto;display: block;width:90%;height:90%;box-shadow: 10px 10px 10px rgba(0,0,0,.5);'")
        End With
        '增加Gallery,第三个参数False表示初始隐藏,第四个参数True表示点击图片自动隐藏
        With wb.AddGallery("","gla1",False,True)
            .AddImage("./images/001.jpg")
        End With
        e.WriteString(wb.Build) '生成网页
End Select

下一主题 >> << 上一主题

主题：请教：单引号，双引号