Foxtable(狐表)用户栏目专家坐堂 → Panel控件加上 Attribute参数


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

主题:Panel控件加上 Attribute参数

帅哥哟,离线,有人找我吗?
fendouww
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2519 威望:0 精华:0 注册:2019/7/19 13:09:00
Panel控件加上 Attribute参数  发帖心情 Post By:2022/11/7 21:44:00 [显示全部帖子]

图片点击可在新窗口打开查看
With wb.AddPanelGroup("","pg2","文字组合列表")
            .Add("pn1","标题一",txt) '普通列表
            .Add("pn1","标题二",txt,"","http://www.foxtable.com") '超链接
            With .Add("pn2","标题三",txt) '带有子链接
                .AddFoot("文字来源")
                .AddFoot("时间")
                .AddFoot("|其他信息","http://www.foxtable.com")
            End With
            .GroupFoot = "查看更多" '底部链接
            .GroupHref = "http://www.foxtable.com/"
        End With
如何给       .AddFoot("|其他信息","http://www.foxtable.com")加上  Attribute参数,而不是跳转网页?如 .Attribute = """

 回到顶部
帅哥哟,离线,有人找我吗?
fendouww
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2519 威望:0 精华:0 注册:2019/7/19 13:09:00
  发帖心情 Post By:2022/11/7 21:45:00 [显示全部帖子]

图片点击可在新窗口打开查看加上这种

 回到顶部
帅哥哟,离线,有人找我吗?
fendouww
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2519 威望:0 精华:0 注册:2019/7/19 13:09:00
  发帖心情 Post By:2022/11/8 8:53:00 [显示全部帖子]

老师,可以具体指导下吗?这是我复制下来的代码

<ul class="weui_media_info">
<li class="weui_media_info_meta"><a href="t">单价: </a></li>
<li class="weui_media_info_meta"><a href="t">¥65.00</a></li>
<li class="weui_media_info_meta weui_media_info_meta_extra"><a href="t">编辑明细</a></li>
<li class="weui_media_info_meta weui_media_info_meta_extra"><a href="t">删除</a></li>
<li class="weui_media_info_meta weui_media_info_meta_extra"><a href="t">拉布</a></li>
</ul>

 回到顶部
帅哥哟,离线,有人找我吗?
fendouww
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2519 威望:0 精华:0 注册:2019/7/19 13:09:00
  发帖心情 Post By:2022/11/9 16:12:00 [显示全部帖子]

        With wb2.AddPanelGroup("", "pg1", "")
            For Each dr As DataRow In dt.Select("", "序号")
                Dim al As String = "订单号: " & dr("订单号") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;客户: " & dr("客户")
                Dim all As String = "件数: " & dr("件数") & "&nbsp;&nbsp;&nbsp;已裁件数: " & dr("已裁件数") & "&nbsp;&nbsp;&nbsp;备注:" & dr("备注")
                all &= "<br>" & "开始日期: " & dr("开始日期") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;出货日期: " & dr("出货日期")
                With .Add(dr("序号"), al, all, dr("图片")) '带子链接
                    .AddFoot("单价: ")
                    .AddFoot("¥" & Format(dr("单价"), "0.00"), "c")
                    .AddFoot("|编辑明细")
                    .AddFoot("|删除", "c")
                    .AddFoot("|拉布", "c")
                End With
               wb2.AppendHTML("<script>checkedClick(""" & dr("_identify") & """)</script>")
            Next
        End With
        su.Append(wb2.BuildHtml("pg1"))

老师,我用以上代码添加,但单击还是指向了链接"c",请问是哪里有问题吗?以下是JS

function checkedClick(id) {
    let eles = exUtils.QueryAll(".weui_media_info_meta a");
    for (var i = 0, k = eles.length; i < k; i++) {
        if (eles[i].innerText == "编辑明细") {
            eles[i]. + id + ") ;"
        }
        else if (eles[i].innerText == "删除") {
            eles[i]. + id + ") ;"
        }
        else if (eles[i].innerText == "拉布") {
            eles[i]. + id + ") ;"
        }
    }
}

 回到顶部
帅哥哟,离线,有人找我吗?
fendouww
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2519 威望:0 精华:0 注册:2019/7/19 13:09:00
  发帖心情 Post By:2022/11/9 16:32:00 [显示全部帖子]

图片点击可在新窗口打开查看没有链接是不是就无法点击了?然后我调整了下代码和JS,请帮助看看
        For Each dr As DataRow In dt.Select("", "序号")
            With wb2.AddPanelGroup("", "pg" & dr("_identify"), "")
                Dim al As String = "订单号: " & dr("订单号") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;客户: " & dr("客户")
                Dim all As String = "件数: " & dr("件数") & "&nbsp;&nbsp;&nbsp;已裁件数: " & dr("已裁件数") & "&nbsp;&nbsp;&nbsp;备注:" & dr("备注")
                all &= "<br>" & "开始日期: " & dr("开始日期") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;出货日期: " & dr("出货日期")
                With .Add(dr("序号"), al, all, dr("图片")) '带子链接
                    .AddFoot("单价: ")
                    .AddFoot("¥" & Format(dr("单价"), "0.00"))
                    .AddFoot("|编辑明细")
                    .AddFoot("|删除")
                    .AddFoot("|拉布")
                End With
                '               wb2.AppendHTML("<script>checkedClick(""" & dr("_identify") & """)</script>")
            End With
            su.Append(wb2.BuildHtml("pg" & dr("_identify")))
            su.Append("<script>checkedClick(""" & dr("_identify") & """)</script>")
        Next

以下是JS

function checkedClick(id) {
    let eles = exUtils.QueryAll(".weui_media_info_meta a");
    for (var i = 0, k = eles.length; i < k; i++) {
        if (eles[i].innerText == "|编辑明细") {
            eles[i]. + id + ") ;"
        }
        else if (eles[i].innerText == "|删除") {
            eles[i]. + id + ") ;"
        }
        else if (eles[i].innerText == "|拉布") {
            eles[i]. + id + ") ;"
        }
    }
}

//订单Pro_默认页_审核模式_查看明细
function showDetail(upoid) {
hide('page1');
show('page2');
var result = sendAjaxText("", "orderdetail?id=" + upoid + "&vtype=2", "", false);
document.getElementById("page2_divcontent").innerHTML = result;
}

[此贴子已经被作者于2022/11/9 16:35:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
fendouww
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2519 威望:0 精华:0 注册:2019/7/19 13:09:00
  发帖心情 Post By:2022/11/9 17:02:00 [显示全部帖子]

老师,我用的就是图片点击可在新窗口打开查看公众号实例,只是把审核者首页的Preview分组替换成了
        For Each dr As DataRow In dt.Select("", "序号")
            With wb2.AddPanelGroup("", "pg" & dr("_identify"), "")
                Dim al As String = "订单号: " & dr("订单号") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;客户: " & dr("客户")
                Dim all As String = "件数: " & dr("件数") & "&nbsp;&nbsp;&nbsp;已裁件数: " & dr("已裁件数") & "&nbsp;&nbsp;&nbsp;备注:" & dr("备注")
                all &= "<br>" & "开始日期: " & dr("开始日期") & "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;出货日期: " & dr("出货日期")
                With .Add(dr("序号"), al, all, dr("图片")) '带子链接
                    .AddFoot("单价: ")
                    .AddFoot("¥" & Format(dr("单价"), "0.00"))
                    .AddFoot("|编辑明细")
                    .AddFoot("|删除")
                    .AddFoot("|拉布")
                End With
                '               wb2.AppendHTML("<script>checkedClick(""" & dr("_identify") & """)</script>")
            End With
            su.Append(wb2.BuildHtml("pg" & dr("_identify")))
            su.Append("<script>checkedClick(""" & dr("_identify") & """)</script>")
        Next
其他的都没有改变

 回到顶部