专家坐堂-点击登陆时，'错误信息提示:未将对象引用设置到对象的实例.Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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