Foxtable(狐表)用户栏目专家坐堂 → 增加行之后刷新表格


  共有4718人关注过本帖树形打印复制链接

主题:增加行之后刷新表格

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 16:02:00 [显示全部帖子]

js里重新刷新当前页面

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 16:34:00 [显示全部帖子]

1楼的用法没有办法只刷新下边的表格,只能整个页面刷新。

其实整个页面的大头都在表格里呀,文本框没占用多少东西。刷新表格和刷新页面也差不多了

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 21:50:00 [显示全部帖子]

表格使用ajax返回,参考:http://www.foxtable.com/mobilehelp/topics/0110.htm

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 22:07:00 [显示全部帖子]

http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152609&authorid=0&page=0&star=2

看11楼

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 22:52:00 [显示全部帖子]

我把代码复制过来,自己理解一下


httprequests事件

Select Case e.Path
    Case "test.htm"
        Dim wb As New weui
        wb.AddForm("","form1","tongji.htm")
        With wb.AddInputGroup("form1","ipg1","销售统计")
            .AddSelect("水平分组","水 平分组","产品|客户|雇员")
            .AddSelect("垂直分组","垂直分组","产品|[客户]|雇员")
            .AddSelect("统计列","统计列","数量|金额")
        End With
        With wb.AddInputGroup("form1","ipg2","动态赋值")
            .AddInput("xm1","值1","text")
            .AddInput("xm2","值2","text")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "统计", "button").Attribute= ""
        End With
        wb.AppendHTML("<div id='p1' style='margin:0.5em'></div>") '插入一个div,用于显示服务器返回的 页面
        wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
        e.WriteString(wb.Build)
    Case "tongji.htm"
        Dim wb As New weui
        If e.PostValues.ContainsKey("垂直分组") AndAlso e.PostValues.ContainsKey("水平分组") AndAlso e.PostValues.ContainsKey("统计列") Then
            Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
            b.HGroups.AddDef(e.PostValues("水平分组"))
            b.VGroups.AddDef(e.PostValues("垂直分组"))
            b.Totals.AddDef(e.PostValues("统计列"))
            Dim dt As DataTable = b.Build(True)
            With wb.AddTable("","Table1")
                Dim lst As new List(of String)
                For Each dc As DataCol In dt.DataCols
                    lst.Add(IIF(dc.Caption = "",dc.Name,dc.Caption))
                Next
                .head.AddRow(lst.ToArray)
                For Each dr As DataRow In dt.DataRows
                    lst.Clear
                    For Each dc As DataCol In dt.DataCols
                        lst.Add(dr(dc.Name))
                    Next
                    .body.AddRow(lst.ToArray).Attribute= ""
                Next
            End With
        Else
            wb.InsertHTML("请按输入分组列和统计列!")
        End If
        e.WriteString(wb.Build)
End Select


ajaxform.js文件
function tongji(){
    var result = submitAjaxForm('form1','',false);
    document.getElementById("p1").innerHTML=result;
    bindTable();
}

function bindTable() {
    var eles = document.querySelectorAll(".fox_actionsheet");
    for (var i = 0; i < eles.length; i++) {
        eles[i].onclick = hide;
    }
    eles = document.getElementsByClassName("fox_table")
    for (var i = 0; i < eles.length; i++) {
        eles[i].onmousedown = tableMouseDown;
        eles[i].rowSel = -1;
        eles[i].colSel = -1;
        if (eles[i].hasAttribute("data-pagenumber")) {
            eles[i].pagenumber = eles[i].attributes["data-pagenumber"].value;
        }
    }
    eles = document.getElementsByClassName("weui_mask_transition");
    for (var i = 0; i < eles.length; i++) {
        eles[i].addEventListener("transitionend", hideActionMask);
    }
}
function setvalues(){
    document.getElementById("xm1").value = table1.rows[table1.rowSel].cells[0].innerHTML;
    document.getElementById("xm2").value = table1.rows[table1.rowSel].cells[1].innerHTML;
}

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536356 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/24 10:12:00 [显示全部帖子]

不能重复调用e.WriteString,去掉e.WriteString("OK") 

 回到顶部