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