- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]出入库台帐如何做成网页版 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169703)
-- 发布时间：2021/6/27 6:45:00
-- [求助]出入库台帐如何做成网页版
现在有一个页面，要把出入库的主从表做成界面展示。如窗口上半部分是台帐，下半部分是台帐行对应的明细。当切换上半部分的行时，下半部分显示行对应的明细。
看了帮助，大部分是单个单据的，没有这类实现的实例。该如何做？
-- 发布时间：2021/6/27 18:36:00
--
easyui可以做
-- 发布时间：2021/6/27 23:04:00
--
Select Case e.Path
Case "test.htm"
Dim wb As New weui
With wb.AddTable("","Table1")
Dim lst As new List(of String)
.head.AddRow("出库日期","出库单编号","出库用途","领用部门","领料人")
For Each dr As DataRow In DataTables("出库").DataRows
lst.Clear
For Each s As String In {"出库日期","出库单编号","出库用途","领用部门","领料人"}
lst.Add(dr(s))
Next
.body.AddRow(lst.ToArray).Attribute= "onclick= \'setvalues(""" & dr("出库单编号") & """)\'"
Next
End With
wb.AppendHTML("<div id=\'p1\' style=\'margin:0.5em\'></div>") \'插入一个div,用于显示服务器返回的 页面
wb.AppendHTML("<script src=\'./ajaxform.js\'></script>") \'引入脚本文件
e.WriteString(wb.Build)
Case "test2.htm"
Dim wb As New WeUI
With wb.AddTable("","Table2")
\'按日期顺序列出客户CS01的订单,仅显示产品/数量/单价/日期/审核等五列
.CreateFromDataTable(DataTables("出库明细"),False,"出库单编号=\'" & e.PlainText & "\'","","商品类别","商品名称","规格","单位","数量","单价","金额")
End With
e.WriteString(wb.BuildHTML("Table2"))
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:web.zip |
[此贴子已经被作者于2021/6/27 23:03:49编辑过]