Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发，在筛选一个数据时，如何把同行逻辑字段结果展示在同页开关中？


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

主题：移动开发，在筛选一个数据时，如何把同行逻辑字段结果展示在同页开关中？
帅哥哟，离线，有人找我吗？
苍风霁月
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：704 积分：7058 威望：0 精华：0 注册：2012/11/4 23:10:00 		移动开发，在筛选一个数据时，如何把同行逻辑字段结果展示在同页开关中？  发帖心情 Post By：2018/8/2 19:52:00 [只看该作者]

其它文本字段通过调用js实现，逻辑不会用
请高手支招！
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/2 21:04:00 [只看该作者]

这个意思？

 

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","增加客户")
            .AddInput("xm","姓名","text")
            .AddInput("nl","年龄","number")
            .AddSwitch("hy","会员",True)
            .AddSwitch("vip","VIP客户")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "true", "button").Attribute = "onclick=""vip.setAttribute('checked', true)"""
            .Add("btn1", "false", "button").Attribute = "onclick=""vip.removeAttribute('checked')"""
        End With
        e.WriteString(wb.Build) '生成网页
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
苍风霁月
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：704 积分：7058 威望：0 精华：0 注册：2012/11/4 23:10:00 		  发帖心情 Post By：2018/8/2 22:26:00 [只看该作者]

获取数据库表逻辑字段又怎么操作呢？类似调用js赋值
[此贴子已经被作者于2018/8/2 22:26:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/2 22:33:00 [只看该作者]

以下是引用苍风霁月在2018/8/2 22:26:00的发言：
获取数据库表逻辑字段又怎么操作呢？类似调用js赋值
[此贴子已经被作者于2018/8/2 22:26:47编辑过]

 

js获取？需要发送ajax请求过去查询

 

http://www.foxtable.com/mobilehelp/scr/0108.htm

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


加好友 发短信
等级：三尾狐 帖子：704 积分：7058 威望：0 精华：0 注册：2012/11/4 23:10:00 		  发帖心情 Post By：2018/8/2 22:46:00 [只看该作者]

是这样写的，文本框的值都载入了，开关没跟逻辑值同步

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/2 22:51:00 [只看该作者]

以下是引用苍风霁月在2018/8/2 22:46:00的发言：
是这样写的，文本框的值都载入了，开关没跟逻辑值同步

 

贴出你写的代码。
 回到顶部
客人(123.144.*.*)
 小大  7楼


  发帖心情 Post By：2018/8/2 23:21:00 [只看该作者]

js:

function setState(){
    var result= submitAjaxFileds('getState.htm','','mc',false); 
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            document.getElementById("lx").value=vals[0];
            document.getElementById("xz").value=vals[1]; //xz是逻辑字段
        }
    }
}

FT代码：
With wb.AddInputGroup("form1","ipg1","")
    Dim str As String= DataTables("品种表").GetComboListString("品种","","时间 asc")
    With .AddSelect("mc","名称",str)
        .Attribute=""
    End With
    .AddSelect("lx","类型","text")
    .AddSwitch("xz","限制").value="true"
End With

getState.htm代码

Dim dr As DataRow = DataTables("品种表").Find("品种 = '" & e.PostValues("mc") & "'")
        If dr1 IsNot Nothing Then           
                e.WriteString(dr("类型") & "|" & iif(dr("限制")=1,"True","False"))          
        Else
            e.WriteString("未找到相关数据")
        End If


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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/2 23:28:00 [只看该作者]

看懂2楼代码。

 

function setState(){
    var result= submitAjaxFileds('getState.htm','','mc',false); 
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            document.getElementById("lx").value=vals[0];
            if(vals[1]=="True") {
    xz.setAttribute('checked', true)
} else {
    xz.removeAttribute('checked')
}
        }
    }
}
[此贴子已经被作者于2018/8/3 9:56:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
苍风霁月
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：704 积分：7058 威望：0 精华：0 注册：2012/11/4 23:10:00 		  发帖心情 Post By：2018/8/2 23:37:00 [只看该作者]

原理懂了，但红色这里，xz引用对不？开关还没不跟值变动

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/8/3 9:56:00 [只看该作者]

执行下面，弹出什么？
 
function setState(){
    var result= submitAjaxFileds('getState.htm','','mc',false); 
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            //document.getElementById("lx").value=vals[0];
alert(vals[1])
            if(vals[1]=="True") {
alert(1)
    xz.setAttribute('checked', true)
} else {
alert(2)
    xz.removeAttribute('checked')
}
        }
    }
}
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04785 秒, 4 次数据查询