轉為delphi.net語言

發文回覆瀏覽次數：1038

推到 Plurk!

推到 Facebook!

尚未結案

标签开始
//输出“联系电话”列
writer.Write("\n");

//“地址”列必须有rowspan属性且必须在第一列呈现
TableCell cell = (TableCell)ctl.Controls[ctl.Controls.Count - 1];
cell.Attributes.Add("rowspan","2");
cell.RenderControl(writer);

//现在关闭第一行
writer.Write("

\n");

//将设计时的样式属性添加到第二行使得两行的外观相似
this.DataGrid1.HeaderStyle.AddAttributesToRender(writer);

//插入第二行
writer.RenderBeginTag("TR");

//呈现除了最后一列（刚才已经呈现过了）外的所有在设计时定义的cells
for(int i=0;i<=ctl.Controls.Count-2;i )
{
ctl.Controls[i].RenderControl(writer);
}

//不需要以结束
}
}
}
[/code]

viya 一般會員發表：16 回覆：19 積分：7 註冊：2008-09-16 發送簡訊給我	#1 引用回覆回覆發表時間：2009-02-19 16:11:00 IP:220.128.xxx.xxx 訂閱目前在設計datagrid 多行表頭，在網路上找到一串語法。嚐試改寫成delphi.net語法，卻不斷出錯。當中e.Item.SetRenderMethodDelegate(new RenderMethod(NewRenderMethod)); 我改寫成 e.Item.SetRenderMethodDelegate(RenderMethod(NewRenderMethod())); 或是傳入參數，皆出錯，請版上高手看看，該如何改寫 >< http://www.cnblogs.com/Terrylee/archive/2005/09/29/246576.html [code vb] using System; using System.Collections; using System.ComponentModel; using System.Data; using System.Drawing; using System.Web; using System.Web.SessionState; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.HtmlControls; using System.Data.SqlClient; namespace WebDataGridHeader { /*//// ///DataGrid表头合并问题 /// public class WebForm1 : System.Web.UI.Page { protected System.Web.UI.WebControls.DataGrid DataGrid1; protected System.Web.UI.WebControls.Label Label1; private void Page_Load(object sender, System.EventArgs e) { // 在此处放置用户代码以初始化页面 string m_strConn = "server=.;uid=sa;pwd=sa;database=Northwind"; SqlConnection conn = new SqlConnection(m_strConn); try { conn.Open(); SqlCommand cmd = new SqlCommand("SELECT FROM Employees",conn); SqlDataAdapter adp = new SqlDataAdapter(cmd); DataTable dt = new DataTable(); adp.Fill(dt); this.DataGrid1.DataSource = dt; this.DataGrid1.DataBind(); } catch(Exception ex) { throw ex; } finally { conn.Close(); } } Web 窗体设计器生成的代码#region Web 窗体设计器生成的代码 override protected void OnInit(EventArgs e) { // // CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。 // InitializeComponent(); base.OnInit(e); } ///// /// 设计器支持所需的方法 - 不要使用代码编辑器修改 /// 此方法的内容。 /// private void InitializeComponent() { this.DataGrid1.ItemCreated = new System.Web.UI.WebControls.DataGridItemEventHandler(this.DataGrid1_ItemCreated); this.Load = new System.EventHandler(this.Page_Load); } #endregion ///// /// 创建Item /// /// /// private void DataGrid1_ItemCreated(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e) { //将Item的呈现方法定向到自定义的呈现方法上 ListItemType lit = e.Item.ItemType; if(ListItemType.Header == lit) { e.Item.SetRenderMethodDelegate(new RenderMethod(NewRenderMethod)); } } /**//// /// 自定义的Item呈现方法 /// /// /// private void NewRenderMethod(HtmlTextWriter writer,Control ctl) { //不需要从
联系电话
zhouying82 高階會員發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我	#2 引用回覆回覆發表時間：2009-02-20 13:33:02 IP:218.80.xxx.xxx 訂閱你去官方网站找找。以前好像看到有一个网页，是可以把DELPHI的代码转为.NET的。 ------ 断断续续的学了几年，还是一个初学者，永远支持Delphi !
viya 一般會員發表：16 回覆：19 積分：7 註冊：2008-09-16 發送簡訊給我	#3 引用回覆回覆發表時間：2009-02-20 15:26:58 IP:220.128.xxx.xxx 訂閱您好：程式碼並非Delphi ===================引用 zhouying82 文章=================== 你去官方网站找找。以前好像看到有一个网页，是可以把DELPHI的代码转为.NET的。

系統時間：2024-05-15 21:17:33

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！

viya 一般會員發表：16 回覆：19 積分：7 註冊：2008-09-16 發送簡訊給我	#1 引用回覆回覆發表時間：2009-02-19 16:11:00 IP:220.128.xxx.xxx 訂閱目前在設計datagrid 多行表頭，在網路上找到一串語法。嚐試改寫成delphi.net語法，卻不斷出錯。當中e.Item.SetRenderMethodDelegate(new RenderMethod(NewRenderMethod)); 我改寫成 e.Item.SetRenderMethodDelegate(RenderMethod(NewRenderMethod())); 或是傳入參數，皆出錯，請版上高手看看，該如何改寫 >< http://www.cnblogs.com/Terrylee/archive/2005/09/29/246576.html [code vb] using System; using System.Collections; using System.ComponentModel; using System.Data; using System.Drawing; using System.Web; using System.Web.SessionState; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.HtmlControls; using System.Data.SqlClient; namespace WebDataGridHeader { /*//// ///DataGrid表头合并问题 /// public class WebForm1 : System.Web.UI.Page { protected System.Web.UI.WebControls.DataGrid DataGrid1; protected System.Web.UI.WebControls.Label Label1; private void Page_Load(object sender, System.EventArgs e) { // 在此处放置用户代码以初始化页面 string m_strConn = "server=.;uid=sa;pwd=sa;database=Northwind"; SqlConnection conn = new SqlConnection(m_strConn); try { conn.Open(); SqlCommand cmd = new SqlCommand("SELECT FROM Employees",conn); SqlDataAdapter adp = new SqlDataAdapter(cmd); DataTable dt = new DataTable(); adp.Fill(dt); this.DataGrid1.DataSource = dt; this.DataGrid1.DataBind(); } catch(Exception ex) { throw ex; } finally { conn.Close(); } } Web 窗体设计器生成的代码#region Web 窗体设计器生成的代码 override protected void OnInit(EventArgs e) { // // CODEGEN: 该调用是 ASP.NET Web 窗体设计器所必需的。 // InitializeComponent(); base.OnInit(e); } ///// /// 设计器支持所需的方法 - 不要使用代码编辑器修改 /// 此方法的内容。 /// private void InitializeComponent() { this.DataGrid1.ItemCreated = new System.Web.UI.WebControls.DataGridItemEventHandler(this.DataGrid1_ItemCreated); this.Load = new System.EventHandler(this.Page_Load); } #endregion ///// /// 创建Item /// /// /// private void DataGrid1_ItemCreated(object sender, System.Web.UI.WebControls.DataGridItemEventArgs e) { //将Item的呈现方法定向到自定义的呈现方法上 ListItemType lit = e.Item.ItemType; if(ListItemType.Header == lit) { e.Item.SetRenderMethodDelegate(new RenderMethod(NewRenderMethod)); } } /**//// /// 自定义的Item呈现方法 /// /// /// private void NewRenderMethod(HtmlTextWriter writer,Control ctl) { //不需要从
联系电话
zhouying82 高階會員發表：150 回覆：272 積分：189 註冊：2004-03-16 發送簡訊給我	#2 引用回覆回覆發表時間：2009-02-20 13:33:02 IP:218.80.xxx.xxx 訂閱你去官方网站找找。以前好像看到有一个网页，是可以把DELPHI的代码转为.NET的。 ------ 断断续续的学了几年，还是一个初学者，永远支持Delphi !
viya 一般會員發表：16 回覆：19 積分：7 註冊：2008-09-16 發送簡訊給我	#3 引用回覆回覆發表時間：2009-02-20 15:26:58 IP:220.128.xxx.xxx 訂閱您好：程式碼並非Delphi ===================引用 zhouying82 文章=================== 你去官方网站找找。以前好像看到有一个网页，是可以把DELPHI的代码转为.NET的。