以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]出入库台帐如何做成网页版  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=169703)

--  作者:chnfo
--  发布时间:2021/6/27 6:45:00
--  [求助]出入库台帐如何做成网页版
现在有一个页面,要把出入库的主从表做成界面展示。如窗口上半部分是台帐,下半部分是台帐行对应的明细。当切换上半部分的行时,下半部分显示行对应的明细。
看了帮助,大部分是单个单据的,没有这类实现的实例。该如何做?

--  作者:liufucan
--  发布时间: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编辑过]