根据datatables生成的网页怎么控制显示内容呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据datatables生成的网页怎么控制显示内容呢？

共有3578人关注过本帖树形打印复制链接主题：根据datatables生成的网页怎么控制显示内容呢？

有点蓝

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

加好友

发短信

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

Post By：2020/6/1 20:03:00 [显示全部帖子]

这种方式添加：http://www.foxtable.com/mobilehelp/topics/0068.htm

Select Case e.Path

Case "table.htm"

Dim wb As New WeUI

wb.AppendHTML("<style>.mark{background-color:red; color:white;}</style>", True) '添加样式

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

.head.AddRow("部门","姓名","年龄","电话","地址")

.body.AddRow("技术部","张三","36","110","中国北京") '整行增加

With .body.AddRow()

Dim s As String = "技术部技术部技术部技术部技术部技术部技术部"

If s.Length > 10 Then s = s.SubString(0,10) & "..."

.AddCell(s) '逐个单元格增加

.AddCell("李四","class='mark'") '第二个参数用于设置单元格的Attribute属性

.AddCells("38","110") '用AddCells可以一次添加多个单元格

.AddCell("中国上海")

End With

.body.AddRow("技术部","王五","39","110","中国深圳") '整行增加

End With

e.WriteString(wb.Build)

End Select

有点蓝

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

加好友

发短信

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

Post By：2020/6/2 9:41:00 [显示全部帖子]

http://www.foxtable.com/webhelp/topics/2909.htm

Products = dt11.sqlGetValues("学习编号|内容|学习标志|类别","学习人员='" & e.Cookies("姓名") & "'")

有点蓝

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

加好友

发短信

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

Post By：2020/6/2 12:05:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0)

Dim cmd11 As New SQLCommand

cmd11.Connecti '记得设置数据源名称

cmd11.CommandText = "Select 学习编号,内容,学习标志,类别 From {学习内容列表} where 学习人员='" & e.Cookies("姓名") & "'"

Dim dt11 As DataTable = cmd11.ExecuteReader

Dim wb As New WeUI

wb.AddPageTitle("","ph1","学习列表","瓮安县检察院【三会一课系统】")

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

'.CreateFromDataTable(dt11,False,"学习人员='" & e.Cookies("姓名") & "'","学习编号 desc","学习编号","内容","学习标志","类别")

.head.AddRow("学习编号","内容","学习标志","类别")

For Each dr As DataRow In dt11.DataRows

'Output.Show(Product(0) & Product(1) &Product(2) &Product(3))

With .body.AddRow()

Dim s As String = dr("内容")

If s.Length > 10 Then

s = s.SubString(0,10) & "..."

End If

.AddCells(dr("学习编号"),s,dr("学习标志") ,dr("类别"))'逐个单元格增加

End With

e.WriteString(wb.Build)

有点蓝

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

加好友

发短信

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

Post By：2020/6/2 20:27:00 [显示全部帖子]

For Each dr As DataRow In dt.DataRows

.Primarykey = dr("_Identify")

With .body.AddRow()

Dim s As String = dr("内容")

If s.Len gth > 10 Then

s = s.SubS tring(0,10) & "..."

End If

Dim s1 As String

If dr("状态") =True Then

s1 ="√"

Else

s1 ="×"

End If

.AddCells(dr("NO."),s,s1)'逐个单元格增加

End With

With wb.AddButtonGroup("","btg2", False)

If page > 0 Then

.Add("btnPrev", "上一页","","getxuexilist.htm?page=" & page - 1)

End If

If Endrow < count Then

.Add("btnNext", "下一页","","getxuexilist.htm?page=" & page + 1)

End If

End With

e.WriteString(wb.Build)

[此贴子已经被作者于2020/6/2 20:26:59编辑过]

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

主题：根据datatables生成的网页 怎么控制显示内容呢？

主题：根据datatables生成的网页怎么控制显示内容呢？