菜鸟跪求!!!
Aplo 2005-03-10 12:16:27 我用asp.net开发一个程序。想实现代码分离,可视化继承,可死活不行
首先创建了一个类
page.vb
Public Class ClientAllPage
Inherits Page
Dim Client As New DataGrid
Dim MsgColor As New Color
Dim MyUnit As New Unit
Protected Overrides Sub CreateChildControls()
Dim strOpenHTML As String
strOpenHTML = "<HTML><HEAD><TITLE>邮件推广自动发送系统</TITLE><META HTTP-EQUIV='Content-Type' CONTENT='text/html; charset=gb2312'><link href='CSS/CSS.css' rel='stylesheet' type='text/css'></HEAD><BODY BGCOLOR=#FFFFFF LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>"
Controls.Add(New LiteralControl(strOpenHTML))
Dim IndexPageForm As New HtmlForm
IndexPageForm.ID = "IndexPageForm"
IndexPageForm.EncType = "multipart/form-data"
Controls.Add(IndexPageForm)
strOpenHTML = "<table width='100%' height='30' border='0' cellpadding='0' cellspacing='0'><tr><td> </td></tr></table><TABLE WIDTH='100%' height='31' BORDER=0 CELLPADDING=0 CELLSPACING=0 background='image/Gbg.jpg' bgcolor='31'><TR><TD width='11'> </TD><TD width='87'><a href='SendAll.aspx'><img src='image/xyj.jpg' width='79' height='31' border='0'></a></TD><TD width='10'> </TD><TD width='79'><img src='image/dkh.jpg' width='87' height='31' border='0'></TD><TD width='10'> </TD><TD width='79'><a href='WebHost.aspx'><img src='image/xxt.jpg' width='79' height='31' border='0'></a></TD><TD> </TD></TR></TABLE><table width='100%' height='490' border='0' cellpadding='5' cellspacing='0'><tr><td width='20%'><table width='100%' height='10' border='0' cellpadding='0' cellspacing='0'><tr> <td> </td></tr></table><table width='150' border='1' cellpadding='5' cellspacing='0' bordercolor='#666666'><tr> <td><table width='100%' border='0' cellspacing='1' cellpadding='0'><tr> <td width='10%'><div align='center'><strong>>></strong></div></td><td width='80%'><font color='#FF0000'>所有客户</font></td></tr><tr><td> </td><td><a href='AddClient.aspx'>添加客户</a></td></tr><tr> <td></td><td><a href='SearchClient.aspx'>查询客户</a></td></tr></table></td></tr></table><div align='left'></div><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0'><tr> <td> </td></tr></table></td><td width='80%'><table width='100%' height='10' border='0' cellpadding='0' cellspacing='0'><tr> <td> </td></tr></table><table width='100%' border='1' align='center' cellpadding='5' cellspacing='0' bordercolor='#666666'><tr><td><table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td width='15%'><div align='left'>注意事项:</div></td><td width='85%'><li>这是现有所有客户名单</li></td></tr></table></td></tr></table><table width='100%' height='10' border='0' cellpadding='0' cellspacing='0'><tr><td> </td></tr></table><table width='100%' border='1' align='center' cellpadding='0' cellspacing='0' bordercolor='#666666'><tr><td>"
IndexPageForm.Controls.Add(New LiteralControl(strOpenHTML))
Client.ID = "Client"
Client.AutoGenerateColumns = False
Client.CellPadding = 3
Client.Width = MyUnit.Percentage(100)
Client.AllowPaging = True
Client.PageSize = 15
Client.HeaderStyle.ForeColor = MsgColor.Black
Client.HeaderStyle.BackColor = MsgColor.Silver
Client.HeaderStyle.Font.Bold = True
Client.PagerStyle.NextPageText = " <b>></b> </a> "
Client.PagerStyle.PrevPageText = " <b><</b> </a> "
Client.PagerStyle.HorizontalAlign = HorizontalAlign.Right
Client.PagerStyle.ForeColor = MsgColor.White
Client.PagerStyle.BackColor = MsgColor.Silver
Client.AlternatingItemStyle.BackColor = MsgColor.WhiteSmoke
Client.BorderStyle = BorderStyle.Solid
Client.BorderColor = MsgColor.White
AddHandler Client.PageIndexChanged, AddressOf Client_PageIndexChanged
IndexPageForm.Controls.Add(Client)
Dim Client_ID As BoundColumn
Client_ID.DataField = "Client_ID"
Client_ID.HeaderText = "ID"
Client_ID.HeaderStyle.Width = MyUnit.Percentage(5)
Client_ID.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client.Columns.Add(Client_ID)
Dim Client_Name As BoundColumn
Client_Name.DataField = "Client_Name"
Client_Name.HeaderText = "Name"
Client_Name.HeaderStyle.Width = MyUnit.Percentage(12)
Client_Name.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client.Columns.Add(Client_Name)
Dim Client_Company As BoundColumn
Client_Company.DataField = "Client_Company"
Client_Company.HeaderText = "Company"
Client_Company.HeaderStyle.Width = MyUnit.Percentage(28)
Client_Company.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client.Columns.Add(Client_Company)
Dim Client_TEL As BoundColumn
Client_TEL.DataField = "Client_TEL"
Client_TEL.HeaderText = "Tel"
Client_TEL.HeaderStyle.Width = MyUnit.Percentage(15)
Client_TEL.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client.Columns.Add(Client_TEL)
Dim Client_Email As BoundColumn
Client_Email.DataField = "Client_Email"
Client_Email.HeaderText = "Email"
Client_Email.HeaderStyle.Width = MyUnit.Percentage(25)
Client_Email.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client.Columns.Add(Client_Email)
Dim Client_Operate As BoundColumn
Client_Operate.DataField = "Client_Operate"
Client_Operate.HeaderText = "Operate"
Client_Operate.HeaderStyle.Width = MyUnit.Percentage(15)
Client_Operate.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client_Operate.DataFormatString = "<a onclick=javascript:window.open('ClientInfo.aspx?ID={0}','Modify','height=310,width=500,toolbar=no,status=no,menubar=no,location=no') style='cursor: hand;'>Infor</a> <B>/</B> <a href='ClientModify.aspx?ID={0}' style='cursor: hand;'>Modify</a> <B>/</B> <a href='ClientDelete.aspx?ID={0}' style='cursor: hand;'>Delete</a>"
Client.Columns.Add(Client_Operate)
strOpenHTML = "</td></tr></table><table width='100%' height='100%' border='0' cellpadding='0' cellspacing='0'><tr> <td> </td></tr></table></td></tr></table><table width='100%' height='20' border='0' cellpadding='0' cellspacing='0' bgcolor='#CCCCCC'><tr><td><div align='right'>>>> <a href='http://www.argusphoto.com.cn' target='_blank'>www.argusphoto.com.cn</a> </div></td></tr></table>"
IndexPageForm.Controls.Add(New LiteralControl(strOpenHTML))
strOpenHTML = "</BODY></HTML>"
Controls.Add(New LiteralControl(strOpenHTML))
End Sub
……………………
End Class
然后创建一个网页ClientAll.aspx
<%@ Page Language="VB" Inherits="ClientAllPage" %>
编译运行后,可是总体是错误
说“未将对象引用设置到对象的实例。 ”
我试着把
Dim Client_ID As BoundColumn
Client_ID.DataField = "Client_ID"
Client_ID.HeaderText = "ID"
Client_ID.HeaderStyle.Width = MyUnit.Percentage(5)
Client_ID.HeaderStyle.HorizontalAlign = HorizontalAlign.Center
Client.Columns.Add(Client_ID)
Dim Client_Name As BoundColumn
Client_Name.DataField = "Client_Name"
…………………………………………
Client.Columns.Add(Client_Operate)
这一段删除,程序没问题了,
我想是
这几个BoundColumn空件没绑上去,怎么办啊?
跪谢了………………