以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何获取文本框的值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119056)
--  作者：lihe60
--  发布时间：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
--  作者：有点甜
--  发布时间：2018/5/16 22:59:00
--  

认认真真看

 

http://www.foxtable.com/mobilehelp/scr/0113.htm