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


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

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

帅哥哟,离线,有人找我吗?
ycs5801
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:911 积分:6611 威望:0 精华:0 注册:2009/6/24 9:44:00
增加行之后刷新表格  发帖心情 Post By:2022/6/23 15:20:00 [只看该作者]

Dim e As RequestEventArgs = args(0)


Dim wb As New weui
wb.AddPageTitle("","ph1","增加压舱水","")
Dim PageURL = "List2.htm?page=" & e.GetValues("page") &  "&key=" & e.GetValues("list2key")

If e.PostValues.Count = 0 Then '生成增加订单网页
    wb.AddForm("","form1","addnew3.htm?key=" & e.getvalues("key") & "&list2key=" & e.GetValues("list2key"))
    With wb.AddInputGroup("form1","ipg1","压舱水")
        '.AddHiddenValue("sureyid",id)
            '.AddHiddenValue("次数",idx)
        '
        .AddInput("tankno","舱号tankno","text")
        .AddInput("obvd","压舱水obvd","number").Step = "0.001"
        With .AddInput("correct","修正correct","number")
            .Step = "0.001"
            .value="0"
        End With
        .AddInput("tovcubmeter","体积tovcubmeter","number").Step = "0.001"
        With .AddInput("density","密度density","number")
            .Step = "0.001"
            .value="1.02"
        End With
    End With
    With wb.AddButtonGroup("form1","btg1",True)
        .Add("btn1", "确定", "button").Attribute= ""
    End With
   
    'With wb.AddDialog("", "dlg1", "提示", "增加成功,是否继续增加?") '增加订单成功提示框
        '            .AddButton("btnYes", "是").Attribute = ""
        '            .AddButton("btnNo", "否", PageURL).Kind = 1
    '        End With
    With wb.AddDialog("", "dlg2", "错误", "") '增加订单失败提示框
        .AddButton("btnOK", "确定")
    End With
    wb.AppendHTML("<script src='./lib/ycsbg.js'></script>") '引入脚本文件
   
   
    Dim pr1 As DataRow
    Dim id1 As String
    pr1 = DataTables("操作表").SQLFind("[_Identify] =" & e.getvalues("key"))
    If pr1 IsNot Nothing Then
        id1 = pr1("sureyidtimes")
    End If
    With wb.AddTable("", "Table1")
        '按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
        .CreateFromDataTable(DataTables("压舱水"), False, "sureyidtimes='" & id1 & "'", "次数 desc", "次数", "tankno", "obvd", "tovcubmeter", "weightmetricton")
    End With
    e.WriteString(wb.Build)
   
   
Else '保存新增的订单
   
    Dim dr As DataRow = DataTables("压舱水").AddNew()
    '调取list1中的行id
    Dim pr As DataRow
    Dim id As String
    pr = DataTables("操作表").SQLFind("[_Identify] =" & e.getvalues("key"))
    If pr IsNot Nothing Then
        id = pr("sureyidtimes")
    End If
    'MessageBox.Show(id)
    ''计算sureyidtimes
    Dim max As Integer
    Dim idx As Integer
    max= DataTables("压舱水").SQLCompute("max(次数)","sureyidtimes='" & id & "'")
   
    If max > 0 Then '如果存在最大次数
        idx = max+1 '获得最大次数的后三位顺序号,并加1
    Else
        idx = 1 '否则顺序号等于1
    End If
   
   
    dr("sureyidtimes") = id
    dr("时间") = Date.Today()
    dr("次数")=idx
    dr("压舱水编码次数")=id+CStr(idx)
    Dim nms() As String = {"tankno","obvd","correct","tovcubmeter","density"}
    For Each nm As String In nms
        dr(nm) = e.PostValues(nm)
    Next
    '    dr.Save()
    ''计算结果
    If dr.IsNull("obvd") And  dr.IsNull("correct") Then
        dr("corrd") = Nothing
    Else
        dr("corrd") = Math.Round(dr("obvd")+dr("correct")/100,2)
    End If
    '' "tovcubmeter","density"  ''weightmetricton,操作表bw获取公式
    If dr.IsNull("tovcubmeter") Or dr.IsNull("density") Then
        dr("weightmetricton") = Nothing
    Else
        dr("weightmetricton") = Math.Round(dr("tovcubmeter")*dr("density"),2)
    End If
    dr.Save()
    e.WriteString("OK") '返回增加成功消息
    '    With wb.AddMsgPage("","msgpage","增加成功", "压舱水增加成功") '增加订单成功提示信息
        '        .AddButton("btn2","继续增加","addnew3.htm?key=" & e.getvalues("key") & "&list2key=" & e.GetValues("list2key"))
        '        .AddButton("btn1","返回",PageURL)
    '    End With
End If
e.WriteString(wb.Build) '生成网页


此主题相关图片如下:qq图片20220623151836.png
按此在新窗口浏览图片

现在点增加之后会在后台增加数据,但是下边的表格不会即时显示出新增的行,需要刷新页面,怎样即时显示?


 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:911 积分:6611 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/6/23 15:37:00 [只看该作者]

js代码:

 

function myfunction(){
    var result = submitAjaxForm('form1','',false);
    if (result =='OK') {form1.reset()}
    else {showDialog('dlg2','错误',result)}
}


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 16:02:00 [只看该作者]

js里重新刷新当前页面

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:911 积分:6611 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/6/23 16:25:00 [只看该作者]

老师,js重新刷新当前界面是整个页面都刷新吗?能不能只刷新下边的表格?具体应该怎么写?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/6/23 16:34:00 [只看该作者]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:911 积分:6611 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/6/23 21:32:00 [只看该作者]

以下是引用有点蓝在2022/6/23 16:34:00的发言:
1楼的用法没有办法只刷新下边的表格,只能整个页面刷新。

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

有没有变通方法,不用这种方式也行,达到效果就可以。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望: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

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:911 积分:6611 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/6/23 22:02:00 [只看该作者]

以下是引用有点蓝在2022/6/23 21:50:00的发言:
表格使用ajax返回,参考:http://www.foxtable.com/mobilehelp/topics/0110.htm

如果用这种方式显示表格,能不能实现在这个表格上的某一行点击一下,即将改行的数据填入到上边的录入表单中,以供编辑。


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望: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楼

 回到顶部
帅哥哟,离线,有人找我吗?
ycs5801
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:911 积分:6611 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2022/6/23 22:18:00 [只看该作者]

链接打不开,提示非法

 回到顶部
总数 13 1 2 下一页