- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 根据datatables生成的网页 怎么控制显示内容呢？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=150540)
-- 发布时间：2020/6/1 17:38:00
-- 根据datatables生成的网页 怎么控制显示内容呢？
根据datatables生成的网页 怎么控制显示内容呢？
想实现内容只显示十个字 其余的全部用……显示 不然全部显示出来 页面不美观。
以下内容是专门发给有点蓝浏览
代码如下：
Dim e As RequestEventArgs = args(0)
Dim cmd11 As New S QL Command
cmd11.Connect i \'记得设置数据源名称
cmd11.CommandT ext = "Sele ct * From {学习内容列表}"
Dim dt11 As DataTable = cm d11.Ex ecuteReader
Dim wb As New WeUI
wb.AddPageTitle("","ph1","学习列表","【三会一课系统】")
With wb.AddTable("","Table1")
.CreateFromDataTable(dt11,False,"学习人员=\'" & e.Cookies("姓名") & "\'","学习编号 desc","学习编号","内容","学习标志","类别")
End With
e.WriteString(wb.Build)
运行效果：
此主题相关图片如下：12.png
[此贴子已经被作者于2020/6/1 17:48:39编辑过]
-- 发布时间：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
-- 发布时间：2020/6/2 9:06:00
-- 回复：（有点蓝）这种方式添加：http://www.foxtable....
有点蓝老师 谢谢 我按照这个方法操作 结果没有内容显示 是不是我代码理解有误？
With wb.AddTable("","Table1")
\'.CreateFromDataTable(dt11,False,"学习人员=\'" & e.Cookies("姓名") & "\'","学习编号 desc","学习编号","内容","学习标志","类别")
.head.AddRow("学习编号","内容","学习标志","类别")
Dim Products As List(Of String())
Products = dt11.sqlGetValues("学习编号|内容|学习标志|类别","","学习人员=\'" & e.Cookies("姓名") & "\'")
For Each Product As String() In Products
Output.Show(Product(0) & Product(1) &Product(2) &Product(3))
With .body.AddRow()
Dim s As String = Product(1)
If s.Length > 10 Then
s = s.SubString(0,10) & "..."
End If
.AddCells(Product(0),s,Product(2) ,Product(3))\'逐个单元格增加
End With
Next
End With
[此贴子已经被作者于2020/6/2 9:25:20编辑过]
-- 发布时间：2020/6/2 9:41:00
--
http://www.foxtable.com/webhelp/topics/2909.htm
Products = dt11.sqlGetValues("学习编号|内容|学习标志|类别","学习人员=\'" & e.Cookies("姓名") & "\'")
-- 发布时间：2020/6/2 11:50:00
-- 回复：（有点蓝）http://www.foxtable.com/webhelp/to...
还是没有值 麻烦老师啦
以下内容是专门发给有点蓝浏览
getxuexilist函数
-- 发布时间：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
Next
End With
e.WriteString(wb.Build)
-- 发布时间：2020/6/2 18:53:00
-- 回复：（有点蓝）Dim e As RequestEventArgs = args(0...
以下内容是专门发给有点蓝浏览
getxuexilist函数代码：
Dim page As Integer = 0 \'默认page为0,显示第一页
Dim pageRows As Integer = 5 \'每页15行
If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 \'此页第一行
Dim EndRow As Integer = (page + 1) * pageRows \'此页最后一行
\'获取该页数据
Dim cmd As New SQL Com mand
cmd.Connec ti \'记得设置数据源名称
cmd.Comm andText = "Sel ect Count(*) From {学习内容列表}"
Dim Count As Integer = cmd.Execu teScalar() \'获取总的行数
cmd.Comma ndText = "Se lect * From (S elect Row_Number() Over(Order by _Identify) As [NO.],[_Identify],内容,学习标志 as 状态 From 学习内容列表) As a "
cmd.Comma ndText = cmd.Comm andText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
Dim dt As DataTable = cmd.Execut eReader
\'生成菜单
Dim wb As New WeUI
With wb.AddActionSheet("","menu") \'设计菜单
……
.Add("mnuCancel","取消","",True)
End With
\'根据此页数据生成网页
With wb.AddTable("","Table1")
.PageNumber = page \'设置页码
.Primarykey = "_Identify" \'设置主键
.ActiveSheet = "menu" \'设置菜单
\'.CreateFromDataTable(dt)
.RowHead = 1 \'左边第一列作为行头
.head.AddRow("序号","内容","状态")
.ColWidth="18px,,20px"
For Each dr As DataRow In dt.DataRows
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(1,s,s1)\'逐个单元格增加
End With
Next
End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnPrev", "上一页","","List.htm?page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页","","List.htm?page=" & page + 1)
End If
End With
e.WriteString(wb.Build)
代码运行后出现下面 数据不能全部显示 只有一条充满所有行数 怎么解决 同样下一条没有显示内容
此主题相关图片如下：123.jpg
-- 发布时间：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
Next
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编辑过]
-- 发布时间：2020/6/3 8:57:00
-- 回复：（有点蓝） For Each dr As DataRo...
有点蓝老师 在你的帮助下 上一页下一页问题解决 还有待进一步跟老师学习一下
当前数据查询符合条件的只有四条 页面默认显示10条数据 结果10条都还是显示了一样的数据
此主题相关图片如下：2.jpg
且还出现了传递的主键值为空
此主题相关图片如下：3.jpg
-- 发布时间：2020/6/3 9:03:00
-- 回复：（李孝春）回复：（有点蓝） For E...
有点蓝老师 麻烦继续指导一下 谢谢！
以下内容是专门发给有点蓝浏览