以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  点击登陆时,'错误信息提示:未将对象引用设置到对象的实例.  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=188224)

--  作者:sysckj
--  发布时间:2023/9/8 20:47:00
--  点击登陆时,'错误信息提示:未将对象引用设置到对象的实例.
 Dim txt As String = "由各种物质组成的巨型球状天体,叫做星球.星球有一定的形状,有自己的运行轨道."
            
            wb.AddPageTitle("","pageheader","新东中心小学社团活动课程报名系统","")
            With wb.AddTabBar("", "tb1", 1)
                .AddPage("page1","社团活动课程","./images/class.png")
                .AddPage("page2","我要报名","./images/wdbm.png")
                .AddPage("page3","报名查询","./images/bmcx.png")
                .AddButton("bt1","退出","./images/cell.png","exit.htm")
                
            End With
            With wb.AddPanelGroup("page1","pg1","社团活动课程列表")
                .Add("pn1","绳采飞扬","跳绳是一项极佳的健体运动,简单的一根绳子,跳出悦动的人生.","./images/button.png")
                .Add("pn2","Sunshine Corner","欢迎来到新东英语角!英语是打开世界之门的钥匙,在这里,孩子们可以畅谈英语,设计英语主题报,了解自然拼读和音标,阅读英文绘本,节奏chant嗨起来,欣赏英文儿歌,走进世界著名电影……来新东英语角,感受英语的魅力,放飞你们的英语梦想吧!","./images/button.png")
                .Add("pn3","English Song","利用英语歌曲培养英语学习的兴趣,增强语感,改善发音,扩充词汇量,同时拓宽学生的视野.通过学习英文歌曲?欣赏英文歌曲视频或live现场的方式,让学生从歌曲中体验英语带来的快乐.","./images/button.png")
                .Add("pn4","童心巧手","利用创意美术课堂,让孩子尽情徜徉在绘画的奇妙世界,感悟寻找生活色彩的童真乐趣,释放天性,为成长添彩.","./images/button.png")
                .Add("pn5","灌篮高手","篮球带给孩子的是阳光?自信和坦荡.","./images/button.png")
                .Add("pn6","舞动奇迹","在这里,你可以拥有自己的舞台,绽放自己的光彩,让民族舞和啦啦操陪伴你成长.","./images/button.png")
                .Add("pn7","玩转足球","没有一项运动能比足球让人热血澎湃,没有一项运动能比足球更有温情与魅力.","./images/button.png")
                .Add("pn8","羽你有约","羽毛球是一项既有氧又有趣的活动,让挥拍舞出全身,让比赛充满激情.","./images/button.png")
                .Add("pn9","悦读悦美","阅读丰富人生,书香润泽心灵.","./images/button.png")
                .Add("pn10","乒出精彩","乒乓球不仅是一项运动,更是一种艺术.","./images/button.png")
                .Add("pn11","雏鹰军体","军体拳是一种以武健身育人的拳术.通过学习基本的军事知识和技能,树立孩子的军人气质,培养坚韧不拔的精神,提高自我保护能力.","./images/button.png")
                .Add("pn12","径径有味","全新的起点,全新的记录等着你来刷新,新东田径队期待你的加入.","./images/button.png")
                .Add("pn13","少儿编程","如果你的孩子懂编程,他就是未来世界的创造者.","./images/button.png")
                .Add("pn14","墨韵飘香","通过硬笔书法学习,感受中国书法艺术之美.","./images/button.png")
                .Add("pn15","棋妙世界","一个包含象棋?五子棋?跳棋?飞行棋等棋类的综合社团.","./images/button.png")
                .Add("pn16","劳有所获","利用校内校外的劳动实践基地,点亮孩子们的劳动教育之美.","./images/button.png")
                
            End With
            
            
            With wb.AddPanelGroup("page2","pg2","报名选班")
                wb.AddForm("page2","form1","bmxb.htm")
                
                With wb.AddInputGroup("form1","ipg3","选择社团活动课程")
                    .Addselect("iname","社团活动课程",DataTables("interest_classes").GetComboListString("name"))
                    
                    
                End With
                
                With wb.AddButtonGroup("form1","btg2",False)
                    .Add("btn2", "确定报名", "submit")
                    .add("btn3","取消报名","button").Attribute = ""
                End With
                
                
                
            End With
            
            With wb.AddPanelGroup("page3","pg3","报名查询")
                wb.AddForm("page3","form2","bmcx.htm")
                Dim dr As DataRow =DataTables("users").Find("name=\'" & username & "\'" )
                Dim dr2 As DataRow =DataTables("interest_classes").find("id=\'" & dr("interestid") & "\'" )

                With wb.AddPreview("form2","pv2","","")
                    .AddItem("学生姓名","申报社团名称")
                    .AddItem(username,dr2("name"))
                    .Addbutton("辅助操作", "http://www.foxtable.com", 0)
                    .Addbutton("操作", "", 1, "")
                End With
            End With
            e.WriteString(wb.Build)
            

[此贴子已经被作者于2023/9/8 22:33:26编辑过]

--  作者:有点蓝
--  发布时间:2023/9/9 8:33:00
--  
认真理解一下示例三:http://www.foxtable.com/webhelp/topics/0396.htm

            With wb.AddPanelGroup("page3","pg3","报名查询")
                wb.AddForm("page3","form2","bmcx.htm")
                Dim dr As DataRow =DataTables("users").Find("name=\'" & username & "\'" )
if dr isnot nothing then
                Dim dr2 As DataRow =DataTables("interest_classes").find("id=\'" & dr("interestid") & "\'" )
if dr2 isnot nothing then
                With wb.AddPreview("form2","pv2","","")
                    .AddItem("学生姓名","申报社团名称")
                    .AddItem(username,dr2("name"))
                    .Addbutton("辅助操作", "http://www.foxtable.com", 0)
                    .Addbutton("操作", "", 1, "")
                End With
end if
end if
            End With