Foxtable(狐表) → 用户栏目 → 专家坐堂 → addselect从数据库读取数值放回么


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

主题：addselect从数据库读取数值放回么
帅哥哟，离线，有人找我吗？
有点色
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/3 9:40:00 [只看该作者]

或者，原来的js代码不变，这样写

 

wb.AppendHTML("setAjaxOptions('szshi','p_quyu_get.htm','szs',false)</script>")

wb.AppendHTML("<script>auto_display(""szshi"",""" & suozaishi & """)</script>") '引入脚本文件(所在市)

 

把代码拷贝2份即可

[此贴子已经被作者于2017/5/3 9:40:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/3 9:45:00 [只看该作者]

或者是，你在生成网页的时候，就根据 所在省 的值，直接给控件 所在市 赋值，也是可以的。（参考所在省的方式，只是条件不同而已）

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


加好友 发短信
等级：七尾狐 帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/3 9:54:00 [只看该作者]

刚看见11楼，我先试试11楼的写法

wb.AppendHTML("<script>auto_display('szs', '" & suozaisheng & "', 'szshi', '" & suozaishi & "', 'szqx', '" & suozaixian & "'")</script>") '引入脚本文件(所在省)
上面是楼上代码，去掉，红色加粗的符合，否则不能保存
写出如下代码：发现找到了，但是没有显示，见下图
wb.AppendHTML("<script>auto_display('szs', '" & suozaisheng & "', 'szshi', '" & suozaishi & "', 'szqx', '" & suozaixian & "')</script>") '引入脚本文件(所在省市县)
wb.AppendHTML("<script>auto_display('jxs', '" & jiaxiangsheng & "', 'jxshi', '" & jiangxiangshi & "', 'jxqx', '" & jiaxiangxian & "')</script>") '引入脚本文件(家乡省市县)

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20170503095356666.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/5/3 10:06:02编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zhangjian222200
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1536 积分：10849 威望：0 精华：0 注册：2016/9/12 11:18:00 		  发帖心情 Post By：2017/5/3 10:19:00 [只看该作者]

解决了，11楼方法有效

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/5/3 10:19:00 [只看该作者]

js代码改成8楼。

 

或者，看11楼、12楼方法。
 回到顶部
帅哥哟，离线，有人找我吗？
chen3728060
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：388 积分：5098 威望：0 精华：0 注册：2013/11/2 0:01:00 		  发帖心情 Post By：2017/5/3 17:54:00 [只看该作者]

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


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/1/12 13:33:00 [只看该作者]

SQL表生成的列表如何设置默认值？
 Dim mt1,mt2 As Date
            mt1 = Date.Today.AddDays(-30)
            mt2 = Date.today
            Dim cmd As New SQLCommand
            cmd.C
            Dim dt As DataTable
            cmd.CommandText = "SELECT DISTINCT 配货 Fr {成品入库} WHERE 日期 >= #" & mt1 & "# And 日期 <= #" & mt2 & "#"
            dt = cmd.ExecuteReader()
            
            wb.AddForm("","form1","cprk.htm")
            With wb.AddInputGroup("form1","ipg1","成品入库")
                Dim UserName As String = e.Cookies("username")  '从cookie中获取用户名
                Dim Val1 As String = DecryptText(UserName,"123","123") '解密,两个密钥必须和加密的时候
                Dim Val2 As Date = Date.today
                .AddHiddenValue("登记",Val1)
                .AddHiddenValue("日期",Val2)
                With .AddInput("零件图号","零件图号","")
                    .Attribute = "" '调用js函数
                End With
                .AddInput("零件名称","零件名称","Text")
                .AddSelect("配货","配货","|"+dt.SQLGetComboListString("配货"))
                .AddInput("入库数量","入库数量","Number")
            End With
..........
 回到顶部
帅哥哟，离线，有人找我吗？
石四
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：972 积分：7048 威望：0 精华：0 注册：2013/3/31 10:33:00 		  发帖心情 Post By：2019/1/12 13:34:00 [只看该作者]

                .AddSelect("配货","配货","|"+dt.SQLGetComboListString("配货"))

列表框空白，需手动选取一个值
             


[此贴子已经被作者于2019/1/12 13:35:57编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

参考：http://www.foxtable.com/mobilehelp/scr/0048.htm

dim s as string = "|" & dt.SQLGetComboListString("配货") & "|"
s = s.replace("|某名称|","|[某名称]|")
.AddSelect("配货","配货",s.trimend("|"))
 回到顶部
总数 19 上一页 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.08594 秒, 4 次数据查询