以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  移动开发，在筛选一个数据时，如何把同行逻辑字段结果展示在同页开关中？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122839)
--  作者：苍风霁月
--  发布时间：2018/8/2 19:52:00
--  移动开发，在筛选一个数据时，如何把同行逻辑字段结果展示在同页开关中？
其它文本字段通过调用js实现，逻辑不会用
请高手支招！
--  作者：有点甜
--  发布时间：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
--  作者：苍风霁月
--  发布时间：2018/8/2 22:26:00
--  
获取数据库表逻辑字段又怎么操作呢？类似调用js赋值
[此贴子已经被作者于2018/8/2 22:26:47编辑过]
--  作者：有点甜
--  发布时间：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

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

 

贴出你写的代码。
--  作者：客人
--  发布时间：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


请指导!
--  作者：有点甜
--  发布时间：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编辑过]
--  作者：苍风霁月
--  发布时间：2018/8/2 23:37:00
--  
原理懂了，但红色这里，xz引用对不？开关还没不跟值变动
--  作者：有点甜
--  发布时间：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\')
}
        }
    }
}