Foxtable(狐表) → 用户栏目 → 专家坐堂 → AddSelect改成<input>


  共有4705人关注过本帖树形打印复制链接

主题：AddSelect改成<input>
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		AddSelect改成  发帖心情 Post By：2022/7/1 11:53:00 [只看该作者]

 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>
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/1 14:00:00 [只看该作者]

input没有办法使用下拉项目

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/7/1 14:49:00 [只看该作者]

那是用什么

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/1 14:50:00 [只看该作者]

只能是AddSelect

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：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 >  "
这样表单里什么没內容
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/1 15:43:00 [只看该作者]

帮助以外的知识请自学。

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2022/7/2 10:52:00 [只看该作者]

 name='reset'网页了，表格设的菜单那些都失效了

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/2 11:15:00 [只看该作者]

？

 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：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
        
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106209 积分：540168 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/7/2 11:51:00 [只看该作者]

参考：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=141897

 回到顶部
总数 18 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 4 次数据查询