Foxtable(狐表)用户栏目专家坐堂 → 如何获取文本框的值


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

主题:如何获取文本框的值

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


加好友 发短信
等级:狐神 帖子:5799 积分:35770 威望:0 精华:0 注册:2009/3/2 14:07:00
如何获取文本框的值  发帖心情 Post By:2018/5/16 22:49:00 [只看该作者]

下面代码中,在单据文本框中输入一个值,点”确定“,如何获取文本框的值。


Dim e As Reques tEventArgs = args(0)


If e.PostV alues("单据编号")=Nothing

    '获取该页数据
    c md.Com man dText = "Sel ect Count(*) F rom {码单}"
    
    Dim dt As DataTable = cm d.Exe cuteReader
    '生成菜单
    wb=New WeUI

    '根据此页数据生成网页
    With wb.AddTable("","Table1")
        .PageNumber = page '设置页码
        .Primarykey = "_Identify" '设置主键
        .ActiveSheet = "menu" '设置菜单
        .CreateFromDataTable(dt)
    End With
    With wb.AddInputGroup("","ipg1","码单")
        .AddInput("单据编号","单据编号","Text")
        .AddInput("序号","行号","number")
    End With
    With wb.AddButtonGroup("","btg2", False) '生成上一页和下一页按钮
        If page > 0 Then
            .Add("btnPrev", "上一页","","bb_detail?page=" & page - 1)
        End If
        If Endrow < count Then
            .Add("btnNext", "下一页","","bb_detail?page=" & page + 1)
        End If
        .Add("btn1", "确定", "submit")
    End With
    wb.AppendHTML("<script src='./lib/table.js'></script>") '引入脚本文件
    e.WriteString(wb.Build)
Else
    DataTables("业务库").loadfilter="单据编号='" & e.postvalues("单据编号") & "'"
    DataTables("业务库").load()
    If Tables("码单").Rows.count=0
      '  Return Nothing
    End If
    Dim r As Row=Tables("码单").addnew()
    r("数量")=e.PostValues("序号")
    Tables("码单").save()
        With wb.AddTable("","Table1")
            '按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
            .CreateFr omDataTable(DataT ables("码单"),True)
        End With
        e.WriteString(wb.Build)
End If

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


加好友 发短信
等级:版主 帖子:71002 积分:356108 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/16 22:59:00 [只看该作者]


 回到顶部