主题：表格提取数据问题

 With wb.AddTable("", "Table1")
            .PageNumber = page'设置页码
            .ActiveSheet = "menu" '指定菜单
            .Primarykey = "_Identify" '指定主键,主表编号设为主键.
            .CreateFromDataTable(dt, False, "", "", "tankno", "次数", "obvd", "tovcubmeter", "weightmetricton")
        End With

 

利用CreateFromDataTable自动生成的表格，能否实现在表格中点击一下，则执行某函数？

现在想实现在表格中点击某行，则将某行的数据发送到form1中的空格内，应该怎么设置？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:7777.txt

你那个看不懂啊，能不能看看我这个，我这个思路是在list3函数里上边是表单，下边是表格，在表格中单击某行，则通过js函数调取ycsqz函数中的该行数据到list3的表单中。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:提取.rar

上边的没问题了，现在有两个问题，1、怎样能获取到单击行的主键，因为我后续需要通过主键对该行数据进行修改后保存。2、怎样能给这个表格增加个竖向的滚动条，因为这个表格的数据较多，我不想拉动的时候把上边的表单也跟着上下移动。

这个js怎么传送呢？function myfunction1(){
    submitAjaxForm('form1','',false);
    }

 

  wb.AddForm("", "form1", "list3save.htm”)
        With wb.AddInputGroup("form1", "ipg1", "编辑压舱水")
            With .AddInput("tankno", "舱号tankno", "text")

...

With .body.AddRow(lst.ToArray)
                    .Attribute = ""
                   .Primarykey = dr("_Identify") '设置主键
                End With

...

按照这个方法加的滚动条，是整个屏幕都上下滚动，能不能只滚动表格部分？

 

这个怎么传送呢？

我是先点击表格某行，通过js将当前行传送到表单内，在表单内修改数据后，点保存，则将表单内数据传送到后台进行保存，现在是这个主键值不知道怎么传送。

function myfunction1(){ 
      submitAjaxFileds("list3save.htm?key=" + table1.primarykey,'','form1',false)
 }

 

wb.AddForm("", "form1", "list3save.htm")
        With wb.AddInputGroup("form1", "ipg1", "编辑压舱水")
            With .AddInput("tankno", "舱号tankno", "text")
                .Readonly = True
            End With

...

现在主键已经传送过去了，但是form1表单中的值没传过去，哪里不对呢

接收端部分代码：

If e.PostValues.Count > 0 Then '生成增加订单网页
   
    Dim id As String
  
    '调取list1中的行id
    Dim pr As DataRow
    pr = DataTables("压舱水").SQLFind("[_Identify] =" & e.getvalues("key"))
    If pr IsNot Nothing Then
        id = pr("sureyidtimes")
        MessageBox.Show(e.GetValues("key"))
        Dim nms() As String = {"obvd", "correct", "tovcubmeter", "density"}
        For Each nm As String In nms
            pr(nm) = e.PostValues(nm)
        Next
        MessageBox.Show(pr("obvd"))

 

 

        现在MessageBox.Show(pr("obvd"))这个显示为0.