如何实现利用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

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

主题：如何实现利用datatables表生成的网页页面，单击某行记录，从getxuexilist函数中传输 e.Cookies("姓名") 、学习编号、内容到 xuexi函数里面，然后进行对应学习！