主题：表格提取数据问题

试了一下，控制不了，自己使用鼠标点了

  With wb.AddButtonGroup("", "btg1", false) '垂直排列
            .Add("btn1", "保存", "button").Attribute = ""
            .Add("btn4", "返回", "", PageURL)
        End With
        wb.InsertHTML("", "<div id='div1' style='overflow-y:auto;height:300px'>") '’加竖向滚动条
        With wb.AddTable("", "Table1")
            Dim lst As New List(Of String)
            .head.AddRow("tankno", "obvd", "correct", "tovcubmeter", "density")
            For Each dr As DataRow In DataTables("压舱水").Select("[sureyidtimes] = '" & id & "'")
                lst.Clear
                For Each s As String In {"tankno", "obvd", "correct", "tovcubmeter", "density"}
                    lst.Add(dr(s))
                Next
                With .body.AddRow(lst.ToArray)
                    .Attribute = ""
                   .Primarykey = dr("_Identify") '设置主键
                End With
            Next
        End With        

 

点击保存后，下边的表格能否自动刷新一下，不然表格内的数据不是最新的。

方法1、保存后刷新这个页面

第一种方法会页面全部刷新，影响录入。第二种方法，是不是就无法使用单击取值这种方法了？

可以，4楼的例子就是这样用的

改成那种了，但是现在在最开始打开这一页的时候，没有触发按键的情况下，下边是没有表格显示的，怎么处理？

function myfunction1(){ 
   
    var result=submitAjaxFileds("list3save.htm?key=" + table1.primarykey,"","obvd", "correct", "tovcubmeter", "density",false)
    document.getElementById("p1").innerHTML=result;
 }

  With wb.AddButtonGroup("", "btg1", false) '垂直排列
            .Add("btn1", "保存", "button").Attribute = ""         
            .Add("btn4", "返回", "", PageURL)
        End With

 

function myfunction1(sureyidtimes){ 
    var result=submitAjaxFileds("list3save.htm?key=" + table1.primarykey+"&sureyidtimes="+sureyidtimes,"","obvd", "correct", "tovcubmeter", "density",false)
    document.getElementById("p1").innerHTML=result;
 }

 

这样，点保存没反应。

.Add("btn1", "保存", "button").Attribute = "onc  lick='myfunction1(""" & id & """)'"

完整代码