Foxtable(狐表) → 用户栏目 → 专家坐堂 → 取数不到


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

主题：取数不到
帅哥哟，离线，有人找我吗？
yetle
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		取数不到  发帖心情 Post By：2020/6/15 8:58:00 [显示全部帖子]


Select Case e.Path
    Case "sg.htm"
        
        wb.AddForm("","form1","sg.htm")
        With wb.AddInputGroup("form1","ipg1","费用申请")

            .AddInput("sq","申请人","申请人").value=e.Cookies("name")

            With .AddSelect("fybm","费用部门","|" & DataTables("组织结构").GetComboListString("部门"))
’在这里获取到了费用部门               
                .Attribute = """
            End With
            .AddSelect("zx","中心","")

            With .AddSelect("kmmc","科目名称","|" & DataTables("预算编制").GetComboListString("科目名称"))
            'With .AddSelect("kmmc","科目名称","|" & DataTables("预算编制").GetComboListString("科目名称","预算部门='" & e.Values("fybm")  & "'"))
’在预算编制表里获取科目名称，不加条件"预算部门='" & e.Values("fybm")  & "'"可以获取到数据，加了这个条件就获取不到，是为什么？
                .Attribute = """
            End With
            .AddSelect("kmdh","科目代号","")
        End With

        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页
End Select






Select Case e.Path

    Case  "ysbz.htm"

Dim Filter As String = "科目名称='" & e.PostValues("kmmc")  & "'"
'Dim Filter As String = "科目名称='" & e.PostValues("kmmc")  & "' and 预算部门='" & e.PostValues("fybm")  & "'"
同样这里加了预算部门的的条件也获取不到科目名称，是怎么回事
        Dim ppdh As String = DataTables("预算编制").GetComboListString("科目代号",Filter)

        e.WriteString(ppdh)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2020/6/15 10:44:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20200615102947.png
图片点击可在新窗口打开查看
不好意思，我之前表述不够完整，我这里是有两个传递需求
，一个是通过费用部门获取费用中心，同时获取科目名称和科目代号；另一个是通过选择不同的科目名称获取对应的科目代号
按照老师给的帮助修改了一下：加了颜色填充的代码后中心获取不到了，科目名称可以获取到,需要同时获取到费用中心和科目名称以及科目代号，同时又可以通过选择不同科目名称获取科目代号，怎么写？
Select Case e.Path
    Case "sg.htm"        
        wb.AddForm("","form1","sg.htm")
        With wb.AddInputGroup("form1","ipg1","费用申请")
            
            .AddInput("sq","申请人","申请人").value=e.Cookies("name")                        
            With .AddSelect("fybm","费用部门","|" & DataTables("组织结构").GetComboListString("部门"))                
                .Attribute = "onch ange=""setAjax Options('zx','sgzx.htm','sqr','fybm',false)"""
                .Attribute = "onch ange=""setAjax Options('kmmc','ysbz.htm','sqr','fybm',false)"""  
            End With            
            .AddSelect("zx","中心","")
            .AddSelect("kmmc","科目名称","")            
            .AddSelect("kmdh","科目代号","")                        
        End With        
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页        
End Select

Select Case e.Path
    Case  "sgzx.htm"
        Dim pps As String = DataTables("组织结构").GetComboListString("中心","部门='" & e.PostValues("fybm")  & "'")
        e.WriteString(pps)
End Select


Select Case e.Path    
    Case  "ysbz.htm"
        Dim ppdh As String = DataTables("预算编制").GetComboListString("科目名称"," 预算部门='" & e.PostValues("fybm")  & "'")
        e.WriteString(ppdh)
End Select
[此贴子已经被作者于2020/6/15 10:57:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2020/6/15 10:58:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：微信图片_20200615102947.png
图片点击可在新窗口打开查看
不好意思，我之前表述不够完整，我这里是有两个传递需求
，一个是通过费用部门获取费用中心，同时获取科目名称和科目代号；另一个是通过选择不同的科目名称获取对应的科目代号
按照老师给的帮助修改了一下：加了颜色填充的代码后中心获取不到了，科目名称可以获取到,需要同时获取到费用中心和科目名称以及科目代号，同时又可以通过选择不同科目名称获取科目代号，怎么写？
Select Case e.Path
    Case "sg.htm"        
        wb.AddForm("","form1","sg.htm")
        With wb.AddInputGroup("form1","ipg1","费用申请")
            
            .AddInput("sq","申请人","申请人").value=e.Cookies("name")                        
            With .AddSelect("fybm","费用部门","|" & DataTables("组织结构").GetComboListString("部门"))                
                .Attribute = "onch ange=""setAjax Options('zx','sgzx.htm','sqr','fybm',false)"""
                .Attribute = "onch ange=""setAjax Options('kmmc','ysbz.htm','sqr','fybm',false)"""  
            End With            
            .AddSelect("zx","中心","")
            .AddSelect("kmmc","科目名称","")            
            .AddSelect("kmdh","科目代号","")                        
        End With        
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页        
End Select

Select Case e.Path
    Case  "sgzx.htm"
        Dim pps As String = DataTables("组织结构").GetComboListString("中心","部门='" & e.PostValues("fybm")  & "'")
        e.WriteString(pps)
End Select


Select Case e.Path    
    Case  "ysbz.htm"
        Dim ppdh As String = DataTables("预算编制").GetComboListString("科目名称"," 预算部门='" & e.PostValues("fybm")  & "'")
        e.WriteString(ppdh)
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2020/6/16 9:32:00 [显示全部帖子]

Select Case e.Path
    Case "sg.htm"        
        wb.AddForm("","form1","sg.htm")
        With wb.AddInputGroup("form1","ipg1","费用申请")
            
            .AddInput("sq","申请人","申请人").value=e.Cookies("name")                        
            With .AddSelect("fybm","费用部门","|" & DataTables("组织结构").GetComboListString("部门"))                
                .Att ribute = "on change=""set AjaxOptions('zx','sgzx.htm','sqr','fybm',false);setAjaxOptions('kmmc','ysbz.htm','sqr','fybm',false);setAjaxOptions('kmdh','kmdh.htm','fybm','kmmc',false)"""  
'通过费用部门获取费用中心，同时获取科目名称和科目代号,这个已经可以了！             
            End With 
           
            .AddSelect("zx","中心","")
            .AddSelect("kmmc","科目名称","")            
            With.AddSelect("kmdh","科目代号","") 
                .Att ribute = "on change=""set AjaxOptions('kmdh','kmdh.htm','fybm','kmmc',false)"""             
另一个是通过选择不同的科目名称获取对应的科目代号 ，这个还不行？ 
            End With 
         
        End With        
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页        
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2020/6/17 9:17:00 [显示全部帖子]

            .AddSelect("zx","中心","").Attribute = """
            .AddHiddenValue("中心审批人","zxspr")

Select Case e.Path    
    Case  "zxspr.htm"
        Dim pdzxr As String = DataTables("组织结构").GetComboListString("中心负责人","  中心='" & e.PostValues("zx")  & "'")
        e.WriteString(pdzxr)
End Select

老师，如果是AddHiddenValue，获取中心审批人是这么写吗？测试获取不到呢
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2020/6/17 9:59:00 [显示全部帖子]

            .AddSelect("zx","中心","").Att ribute = "on change=""set AjaxOptions('zxsp','zxspr.htm','zx',false)"""
            .AddHiddenValue("中心审批人","zxspr")
Select Case e.Path    
    Case  "zxspr.htm"
        Dim pdzxr As String = DataTables("组织结构").GetComboListString("中心负责人","  中心='" & e.PostValues("zx")  & "'")
        e.WriteString(pdzxr)
End Select

通过中心获取到中心审批人作为一个隐藏标签
 回到顶部
帅哥哟，离线，有人找我吗？
yetle
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：858 积分：6381 威望：0 精华：0 注册：2017/2/13 9:04:00 		  发帖心情 Post By：2020/6/17 11:04:00 [显示全部帖子]

做审批用，可不可以这么写？

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