Foxtable(狐表)用户栏目专家坐堂 → 点击登陆时,'错误信息提示:未将对象引用设置到对象的实例.


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

主题:点击登陆时,'错误信息提示:未将对象引用设置到对象的实例.

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


加好友 发短信
等级:幼狐 帖子:132 积分:1651 威望:0 精华:0 注册:2014/6/9 14:21:00
点击登陆时,'错误信息提示:未将对象引用设置到对象的实例.  发帖心情 Post By: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编辑过]

 回到顶部