网页中的超长文本处理 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3007人关注过本帖树形打印复制链接主题：网页中的超长文本处理

有点蓝

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

加好友

发短信

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

Post By：2021/3/2 14:00:00 [显示全部帖子]

手工添加行的方式：http://www.foxtable.com/mobilehelp/topics/0068.htm，给行绑定点击事件：

判断如果单元格内容多的，只显示前一部分字符，然后点击单元格的时候，在事件函数里写代码，跳转到一个详情页面

dim s as string = “这里有很多内容......”

With .body.AddRow()
.AddCell(IIF(s.length > 10, s.substring(0,10) & "...",s)).Attribute= "onclick= '某某js函数()'"

.AddCell("中国上海")
End With

有点蓝

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

加好友

发短信

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

Post By：2021/3/2 16:02:00 [显示全部帖子]

在通过表格浏览时候处理，生成表格的时候处理，和这段代码有啥关系？

有点蓝

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

加好友

发短信

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

Post By：2021/3/2 16:16:00 [显示全部帖子]

改为手工添加行的方式：http://www.foxtable.com/mobilehelp/topics/0072.htm

'根据此页数据生成网页

With wb.AddTable("","Table1")

.ColWidth = "12px,,,,,,,,1000px," '设置列宽

.PageNumber = page '设置页码

.Primarykey = "_Identify" '设置主键

.ActiveSheet = "menu" '设置菜单

Dim nms() As String = {"","产品","客户","数量","单价","日期"}

.Head.AddRow(nms)

Dim cnt As Integer

For Each r As DataRow In dt.datarows

With .Body.AddRow(cnt, r("产品"), r("客户"), r("数量")).Attribute= "onclick= 'alert(""" & r("船舶信息") & """)'"

dim s as string = r("船舶信息")

.AddCell(IIF(s.length > 10, s.substring(0,10) & "...",s))

End With

有点蓝

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

加好友

发短信

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

Post By：2021/3/2 22:55:00 [显示全部帖子]

没啥用处，我只是复制帮助代码说明处理逻辑而已，细节处自己思考处理

.AddCell(IIF(s.length > 10, s.substring(0,10) & "...",s))

改为

if s.length > 10 then

.AddCell(s.substring(0,10) & "...")

else

.AddCell(s)

endif

有点蓝

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

加好友

发短信

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

Post By：2021/3/2 23:18:00 [显示全部帖子]

贴出完整代码说明问题

有点蓝

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

加好友

发短信

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

Post By：2021/3/3 8:37:00 [显示全部帖子]

With wb.AddTable("","Table1")

.PageNumber = page '设置页码

.Primarykey = "_Identify" '设置主键

.ActiveSheet = "menu" '设置菜单

Dim nms() As String = {"英文船名","航次","IMO号","检查类别","泊位","靠离日期","船舶信息"}

.Head.AddRow(nms)

For Each r As DataRow In DataTables("表1").datarows

With .Body.AddRow(r("英文船名"), r("航次"), r("IMO号"), r("检查类别"), r("泊位"), r("靠离日期"))

.Attribute= "onclick= 'alert(""" & r("船舶信息") & """)'" ‘另起一行

Dim s As String = r("船舶信息")

If s.length > 10 Then

.AddCell(s.substring(0,10) & "...")

Else

.AddCell(s)

End If

End With

[此贴子已经被作者于2021/3/3 8:37:19编辑过]

有点蓝

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

加好友

发短信

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

Post By：2021/3/8 11:39:00 [显示全部帖子]

1、另外做个页面，跳转到其它页面

2、试试这里的浮层面板：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=150866

有点蓝

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

加好友

发短信

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

Post By：2021/3/8 13:58:00 [显示全部帖子]

onclick就是控件的点击事件，后面是点击后执行的代码，上面是弹出一个提示框alert。

打开网页可以这样：http://www.foxtable.com/mobilehelp/topics/0108.htm

主页面

.Attribute= "onclick= 'showpage()'" ‘另起一行

然后添加一个js文件，引用这个文件

js文件添加一个函数

function showpage(){
location="某某页面.htm?id=" + table1.primarykey
}

某某页面.htm服务端代码

case "某某页面.htm"

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","返回","某主页面.htm")
        End With
        e.WriteString(wb.Build) '生成网页

end if

e.WriteString("没找到船舶信息")

有点蓝

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

加好友

发短信

等级：超级版主帖子：107286 积分：545691 威望：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;

}

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

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