Foxtable(狐表)用户栏目专家坐堂 → 网页中的超长文本处理


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

主题:网页中的超长文本处理

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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/3/8 19:40:00 [只看该作者]

现在点船舶信息那列可以跳转页面,但是总提示找不到船舶信息,应该是主键没有传送过来。
这是list.htm中的部分代码:
 For Each r As DataRow In dt.datarows
        With .Body.AddRow(r("英文船名"),  r("航次"), r("IMO号"), r("检查类别"), r("泊位"), r("靠离日期"))
            .Primarykey = r("_Identify") '设置主键            
            Dim s As String = r("船舶信息")
            If s.length > 5 Then            
                .AddCell(s.substring(0,5) & "...","")
            Else
                .AddCell(s)
            End If
        End With
    Next

这是js中的代码:function showpage(){
    location="showpage.htm?id=" + table1.primarykey
}

这是新增页面中的代码:
Dim e As RequestEventArgs = args(0)
Dim dr As DataRow = DataTables("表1").find("_Identify=" & e.getvalues("id"))
If dr IsNot Nothing
    Dim wb As new WeUI
    With wb.AddMsgPage("","msgpage","船舶信息",dr ("船舶信息"))        
        .AddButton("btn1","返回","list.htm")
    End With
    e.WriteString(wb.Build) '生成网页   
End If
e.WriteString("没找到船舶信息")

绿色地方是这个图:
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210308194347.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2021/3/8 19:44:17编辑过]

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


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 20:31:00 [只看该作者]

.AddCell(s.substring(0,5) & "...","onclick='showpage(""" & r("_Identify") & """);'")

function showpage(id){
    location="showpage.htm?id=" + id;
}

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


加好友 发短信
等级:四尾狐 帖子:911 积分:6617 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2021/3/8 21:00:00 [只看该作者]

已测试成功,谢谢老师,不过我还得自己再消化一下你这些代码

 回到顶部
总数 23 上一页 1 2 3