| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- AddSelect改成<input> (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178361) |
| -- 作者：qazlinle6 -- 发布时间：2022/7/1 11:53:00 -- AddSelect改成<input> If e.Cookies("username") IsNot Nothing Dim lst As new List(of String) For Each s As String In DataTables("Users").SQLGetComboListString("账号企业名","Name=\'"& e.Cookies("username") &"\'").Replace(",","|").split("|") If lst.count = 0 Then lst.add("[" & s & "]") Else If lst.contains(s) = False Then lst.add(s) End If End If Next .AddSelect("店名","店名",String.join("|",lst.toarray)) End If 什么改成<input>
|
| -- 作者：有点蓝 -- 发布时间：2022/7/1 14:00:00 -- input没有办法使用下拉项目 |
| -- 作者：qazlinle6 -- 发布时间：2022/7/1 14:49:00 -- 那是用什么 |
| -- 作者：有点蓝 -- 发布时间：2022/7/1 14:50:00 -- 只能是AddSelect |
| -- 作者：qazlinle6 -- 发布时间：2022/7/1 15:28:00 -- Dim a扫码姓名 As String = "\'<select name=\'扫码姓名\' id=\'扫码姓名\' value=\'1\'><Option value = \'1\' > Dimond </Option> <Option value = \'2\'> vertical </Option > </Select > " 这样表单里什么没內容
|
| -- 作者：有点蓝 -- 发布时间：2022/7/1 15:43:00 -- 帮助以外的知识请自学。 |
| -- 作者：qazlinle6 -- 发布时间：2022/7/2 10:52:00 -- name=\'reset\'网页了，表格设的菜单那些都失效了 |
| -- 作者：有点蓝 -- 发布时间：2022/7/2 11:15:00 -- ？ |
| -- 作者：qazlinle6 -- 发布时间：2022/7/2 11:37:00 -- Dim a查询按妞 As String = "<p style=\'width:8%;height:50px;float: left;border: 1px solid #cccbcb;\'><input style=\'margin: 3% 0% 0% 0%;width:120px;font-size:20px;float:left;border: 1px solid #dcd628;height:35px;border-radius:10px;text-align: center;\' type=\'button\' name=\'button\' id=\'button\' value=\'查询\'></input></p>" 我点击查询， wb.AppendHTML("<div id=\'p1\' style=\'margin:0.1em\'></div>") \'插入一个div,用于显示服务器返回的 页面 wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件 wb.AppendHTML("<script>tongji()</script>") e.WriteString(wb.Build) Case "已盘数据内容.htm" 下面表格红色地放都失效了 With wb.AddTable("", "Table1") .Alternate = 1 .Head.AddRow("序号", "日期", "备注", "商品", "品名", "对账", "对账", "数量", "金重", "金重", "标签", "标签", "标签", "标签", "打签", "盘点" ) \'第一层标题 .Head.AddRow("序号", "日期", "备注", "条码", "名称", "品名", "品类", "数量", "工费", "重量", "品名", "价格", "单价", "重量", "备注", "姓名") \'第二层标题 For Each dr As DataRow In dt.Select("", "序号") With .Body.AddRow(dr("序号"), dr("日期"), dr("备注"), dr("商品条码"), dr("品名商品名称"), dr("对账品名"), dr("对账品类"), dr("数量"), dr("精品工费"), dr("金重"), dr("标签价格品名"), dr("标签价格"), Format(dr("标签价格") / dr("总重量"),"#0"), dr("总重量"), dr("标签备注"), dr("扫码姓名")) End With Next wb.AppendHTML("<style>table.fox_table {min-width: 100%;float: left;text-align: center;}</style>", True) .ActiveSheet = "menu" \'指定菜单 End With With wb.AddActionSheet("", "menu") \'设计菜单 .Add("mnudAdd", "增加订单") .Add("mnuEdit", "编辑订单") .Add("mnuDelete", "删除订单") .Add("mnuCancel", "取消", "", True) End With |
| -- 作者：有点蓝 -- 发布时间：2022/7/2 11:51:00 -- 参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=141897 |