以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何实现利用datatables表生成的网页页面，单击某行记录，从getxuexilist函数中传输 e.Cookies("姓名") 、学习编号、内容到 xuexi函数里面，然后进行对应学习！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150541)
--  作者：李孝春
--  发布时间：2020/6/1 17:46:00
--  如何实现利用datatables表生成的网页页面，单击某行记录，从getxuexilist函数中传输 e.Cookies("姓名") 、学习编号、内容到 xuexi函数里面，然后进行对应学习！
如何实现利用datatables表生成的网页页面，单击某行记录，从getxuexilist函数中传输 e.Cookies("姓名") 、学习编号、内容到 xuexi函数里面，然后进行对应学习！
以下内容是专门发给有点蓝浏览

getxuexilist函数代码：
Dim e As RequestEventArgs = args(0)
Dim cmd11 As New SQ LCo mmand
……
Dim dt11 As DataTable = cm d11.Exe cuteReader
Dim wb As New WeUI
wb.AddPageTitle("","ph1","学习列表","瓮安县检察院【三会一课系统】")
With wb.AddTable("","Table1")
    .CreateFromDataTable(dt11,False,"学习人员=\'" & e.Cookies("姓名") & "\'","学习编号 desc","学习编号","内容","学习标志","类别")
End With
e.WriteString(wb.Build)

xuexi函数代码：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim danweimingcheng As String  = e.PostValues("单位名称")
Dim suoshuzhibu As String  = e.PostValues("所属支部")
Dim xingming As String  = e.PostValues("姓名")
Dim tupianleibie As String  = e.PostValues("图片类别")
Dim bt As String =Tables("学习内容").Current("内容")    目前初步实现单个页面的值显示
Dim st As New Date(1970,1,1,8,0,0)
Dim d As Date = cdate("2020-02-01")
Dim t As Long = (Date.Now - st).TotalSeconds()
Dim bianhao As String= Date.Today & "(" & t & ")"

If e.PostValues.Count = 0 Then
    wb.AddPageTitle("","ph1","党员在线学习系统"," 【党建综合系统】")
    wb.AddForm("","form1","xuexi.htm")
    
    With wb.AddInputGroup("form1","ipg1","【" & e.Cookies("姓名") & "】开始学习时间:" & Date.Now())
        .AddInput("学习要求","学习要求","Text").Value="做好自学笔记,以备检查!"
        .AddHiddenValue("开始时间",Date.Now())
    End With
    
    With wb.AddInputGroup("form1","ipg2","学习内容")
        With .AddTextArea("bz",15)
            .Readonly=True
            .Value= bt   这个部分的值怎么从getxuexilist函数值传输过来
        End With
    End With
    With wb.AddButtonGroup("form1","btg1",True)
        .Add("btn1", "确定", "submit")
    End With
……
    e.WriteString(wb.Build) \'生成网页
Else
……  
    With wb.AddMsgPage("","msgpage","学习成功", "好好学习,天天向上") \'生成成功提示页
        .AddButton("btn1","继续学习","xuexi.htm")
    End With
    e.WriteString(wb.Build)
End If
[此贴子已经被作者于2020/6/1 17:49:18编辑过]
--  作者：有点蓝
--  发布时间：2020/6/1 20:07:00
--  
要使用js控制：http://www.foxtable.com/mobilehelp/topics/0118.htm