Foxtable(狐表)用户栏目专家坐堂 → [求助]setAjaxOptions代码求助


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

主题:[求助]setAjaxOptions代码求助

帅哥哟,离线,有人找我吗?
huangfanzi
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1105 积分:8967 威望:0 精华:0 注册:2014/10/25 11:24:00
[求助]setAjaxOptions代码求助  发帖心情 Post By:2020/3/6 21:04:00 [只看该作者]

老师帮我看看这段代码有何问题,现在的情况是公司中能出现内容,选择公司后工程名称始终没可先内容,谢谢!
Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "Xdcg.htm"
        Dim wb As New WeUI
        wb.AddPageTitle("","ph1","常规","生产任务通知下单")
        wb.AddForm("","form1","Xdcg.htm")
        With wb.AddInputGroup("form1","ipg1","")
            With .AddSelect("公司","公司","|" & _dt销售合同.SQLGetComboListString("公司"))
                .Attribute = "on change=""set AjaxOptions('工程名称','getBrands.htm','公司',false)"""   (代码中on change与set AjaxOptions加了2个空格,要不然发不上来)
            End With
            .AddSelect("工程名称","工程名称","")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
        
    Case  "getBrands.htm"
        Dim pps As String
        pps = "|" & _dt销售合同.SQLGetComboListString("工程名称","公司='" & e.PostValues("公司") & "'")
        e.WriteString(pps)      
End Select
[此贴子已经被作者于2020/3/6 21:14:51编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/6 21:15:00 [只看该作者]

下面代码放到httprequest事件,不要放到函数里

    Case  "getBrands.htm"
        Dim pps As String
        pps = _dt销售合同.SQLGetComboListString("工程名称","|" & "公司='" & e.PostValues("公司") & "'")
        e.WriteString(pps) 

 回到顶部