如何利用submitAjaxForm传递Table中当前行行关键字？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请教：如何利用submitAjaxForm传递Table的当前点击行关键字？

原句如下：test1.htm

With wb.Add Table("form1","Table1")

.Attribute="onc/ick=""key='" & .PrimaryKey & "';user_power_object()"""

‘ '这句应该怎么写，才能将：table1.PrimaryKey的通过submitAjaxForm，传递给user_power_object页面。

.PageNumber=page

.ActiveSheet="menu1"

.Colwidth="12px"

.Highlight= 1

.Alternate = 2

Dim nms1() As String={"NO","帐号","姓名","部门","最近操作","最近操作"}

Dim nms2() As String={"NO","帐号","姓名","部门","登入","退出"}

.head.AddRow(nms1)

.head.AddRow(nms2)

For Each dr As DataRow In dt.DataRows

With .body.addrow(dr("NO."))

.addcell(dr("wID"),"class='alignC'")

.addcell(dr("wXM"),"class='alignC'")

.addcell(dr("wBM"),"class='alignC'")

.AddCell(Format(dr("wlid"),"MM-dd HH:mm"))

.AddCell(Format(dr("wlod"),"MM-dd HH:mm"))

.PrimaryKey=dr("f_id")

End With

With wb.AddButtonGroup("form1","btg21",False)

.Add("btn24","返回主页","","default.htm").kind=1 '生成返回原来页面的按钮

End With

//js函数语句，发送Form对象，显示当前用户的操作权限

function user_power_object(){

var result = submitAjax Form('form1','',false);

document.getElement ById("p1").innerHTML=result;

}

接收方原句如下：user_power_object.htm

Dim e As Request EventArgs = args(0)

Dim wb As New WeUI '定义一个东基于WeUI 框架的网页生成器

Dim PrimaryKey As Integer = e.GetValues("key")

Dim cmd2 As New SQLCommand

cmd2.Conn ecti '记得设置数据源名称

cmd2.Comm andText = "Select * Fr om (Sel ect Row_Number() Over(Order by f_number) As [NO.],* Fr om {user_power} where f_id= '"& PrimaryKey &"' ) As a "

Dim dt2 As Data Table = cmd2.Execute Reader

'根据此页数据生成网页

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

.Colwidth="12px"

.Highlight= 1

.Alternate = 2

Dim nms1() As String={"NO","项目","功能表(0无权1有权)","功能表(0无权1有权)","功能表(0无权1有权)","功能表(0无权1有权)","功能表(0无权1有权)","功能表(0无权1有权)"}

Dim nms2() As String={"NO","项目","新增","修改","删除","审核","上图","查询"}

.head.AddRow(nms1)

.head.AddRow(nms2)

For Each dr2 As DataRow In dt2.DataRows

With .body.addrow(dr2("NO."))

.addcell(dr2("f_name"),"class='alignC'")

.addcell(dr2("f_add"),"class='alignC'")

.addcell(dr2("f_edit"),"class='alignC'")

.addcell(dr2("f_del"),"class='alignC'")

.addcell(dr2("f_check"),"class='alignC'")

.addcell(dr2("f_img"),"class='alignC'")

.addcell(dr2("f_view"),"class='alignC'")

' .Prim aryKey=dr("_Identify") '每行都需要定义上主键

End With

e.Write String(wb.Build)

请教，我应该如何修改：

希望用户在点击“可登录用户信息表的”任意行时，能怎么把当前行的.Prim aryKey

值通过submitAjaxForm 传递给下一函数，并生成一个新的权限表返回到当前页面。

目前我仅能收到一个空表头被返回！

[此贴子已经被作者于2017/10/31 14:10:23编辑过]

主题：如何利用submitAjaxForm传递Table中当前行行关键字？