下面代码中，在单据文本框中输入一个值，点”确定“，如何获取文本框的值。
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
加好友 
发短信
Post By：2018/5/16 22:49:00 [只看该作者]
