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


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

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

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
根据datatables生成的网页 怎么控制显示内容呢?  发帖心情 Post By:2020/6/1 17:38:00 [只看该作者]

根据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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望: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

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)这种方式添加:http://www.foxtable....  发帖心情 Post By:2020/6/2 9:06:00 [只看该作者]

有点蓝老师 谢谢  我按照这个方法操作  结果没有内容显示   是不是我代码理解有误?


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编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望: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("姓名") & "'")

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)http://www.foxtable.com/webhelp/to...  发帖心情 Post By:2020/6/2 11:50:00 [只看该作者]

还是没有值   麻烦老师啦

以下内容是专门发给有点蓝浏览

getxuexilist函数


 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望: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
    Next
End With
e.WriteString(wb.Build)

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)Dim e As RequestEventArgs = args(0...  发帖心情 Post By:2020/6/2 18:53:00 [只看该作者]


以下内容是专门发给有点蓝浏览


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
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105493 积分:536456 威望: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
    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编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)   For Each dr As DataRo...  发帖心情 Post By:2020/6/3 8:57:00 [只看该作者]

有点蓝老师   在你的帮助下   上一页下一页问题解决    还有待进一步跟老师学习一下
当前数据查询符合条件的只有四条   页面默认显示10条数据    结果10条都还是显示了一样的数据 

图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看
且还出现了传递的主键值为空   

图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看



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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(李孝春)回复:(有点蓝)   For E...  发帖心情 Post By:2020/6/3 9:03:00 [只看该作者]

有点蓝老师  麻烦继续指导一下  谢谢!

以下内容是专门发给有点蓝浏览


 回到顶部
总数 12 1 2 下一页