vb.net datagridview 幾行一起排序

黑體字下面是要這樣嗎？?vb的代碼 我不太懂，只會(huì)c#的，? 但是給你個(gè)思路， 就是縱向合并單元格嘛。?

創(chuàng)新互聯(lián)專注于當(dāng)涂網(wǎng)站建設(shè)服務(wù)及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗(yàn)。 熱誠(chéng)為您提供當(dāng)涂營(yíng)銷型網(wǎng)站建設(shè)，當(dāng)涂網(wǎng)站制作、當(dāng)涂網(wǎng)頁(yè)設(shè)計(jì)、當(dāng)涂網(wǎng)站官網(wǎng)定制、微信小程序服務(wù)，打造當(dāng)涂網(wǎng)絡(luò)公司原創(chuàng)品牌,更為您提供當(dāng)涂網(wǎng)站排名全網(wǎng)營(yíng)銷落地服務(wù)。

我貼一段c#的代碼，。，?您理解下，?應(yīng)該不困難。。。

代碼 把AllowUserToAddRows設(shè)置為false

private void dataGridView1_CellPainting(object sender, DataGridViewCellPaintingEventArgs e)

{

//縱向合并

if (this.dataGridView1.Columns["Name"].Index == e.ColumnIndex e.RowIndex = 0)

{

using (

Brush gridBrush = new SolidBrush(this.dataGridView1.GridColor),

backColorBrush = new SolidBrush(e.CellStyle.BackColor))

{

using (Pen gridLinePen = new Pen(gridBrush))

{

// 擦除原單元格背景

e.Graphics.FillRectangle(backColorBrush, e.CellBounds);

/**/

////繪制線條,這些線條是單元格相互間隔的區(qū)分線條,

////因?yàn)槲覀冎粚?duì)列name做處理,所以datagridview自己會(huì)處理左側(cè)和上邊緣的線條

if (e.RowIndex != this.dataGridView1.RowCount - 1)

{

try

{

if (e.Value.ToString() != this.dataGridView1.Rows[e.RowIndex +

1].Cells[e.ColumnIndex].Value.ToString())

{

e.Graphics.DrawLine(gridLinePen, e.CellBounds.Left, e.CellBounds.Bottom - 1,

e.CellBounds.Right - 1, e.CellBounds.Bottom - 1);//下邊緣的線

//繪制值

if (e.Value != null)

{

e.Graphics.DrawString((String)e.Value, e.CellStyle.Font,

Brushes.Crimson, e.CellBounds.X + 2,

e.CellBounds.Y + 2, StringFormat.GenericDefault);

}

}

}

catch (Exception ex)

{

}

}

else

{

e.Graphics.DrawLine(gridLinePen, e.CellBounds.Left, e.CellBounds.Bottom - 1,

e.CellBounds.Right - 1, e.CellBounds.Bottom - 1);//下邊緣的線

//繪制值

if (e.Value != null)

{

e.Graphics.DrawString((String)e.Value, e.CellStyle.Font,

Brushes.Crimson, e.CellBounds.X + 2,

e.CellBounds.Y + 2, StringFormat.GenericDefault);

}

}

//右側(cè)的線

e.Graphics.DrawLine(gridLinePen, e.CellBounds.Right - 1,

e.CellBounds.Top, e.CellBounds.Right - 1,

e.CellBounds.Bottom - 1);

e.Handled = true;

}

}

}

}

下面是我用的datatable?? 這個(gè)dataset是網(wǎng)上copy的

DataSet dataset = new DataSet();//庫(kù)

//表

DataTable myfriends = new DataTable("myfriends");

//列

DataColumn dcName = new DataColumn();

dcName.ColumnName = "Name";

dcName.DataType = typeof(string);

dcName.MaxLength = 8;

DataColumn dcPhone = new DataColumn();

dcPhone.ColumnName = "telephone";

dcPhone.DataType = typeof(string);

dcPhone.MaxLength = 11;

//添加列

myfriends.Columns.Add(dcName);

myfriends.Columns.Add(dcPhone);

//添加1行

DataRow row = myfriends.NewRow();//得到空行

row["Name"] = "小明";

row["telephone"] = "13888888888";

DataRow row1 = myfriends.NewRow();//得到空行

row1["Name"] = "小明";

row1["telephone"] = "15859859888";

DataRow row2 = myfriends.NewRow();//得到空行

row2["Name"] = "豬豬";

row2["telephone"] = "15999999999";

myfriends.Rows.Add(row);

myfriends.Rows.Add(row1);

myfriends.Rows.Add(row2);

//添加表到dataset

dataset.Tables.Add(myfriends);

dataGridView1.DataSource = myfriends;

vb.net 如何對(duì)數(shù)據(jù)庫(kù)查詢結(jié)果記錄集排序？

加了單引號(hào)就是一個(gè)常量字符串了，對(duì)于每一行都是一樣的

像這種放在最前面的字段，order by 1 就可以了

VB.NET中數(shù)據(jù)的排序問題

建議用 DataGridView（你用的是它吧？）內(nèi)建的排序方法來(lái)排序。介紹和示例代碼可以參考MSDN：

VB.net 排序

你這個(gè)是冒泡排序么？從大到小么？

For j = 0 To lstNetworkRisk.Items.Count - 1 應(yīng)該改成

For j = i To lstNetworkRisk.Items.Count - 1

另外盡量不要用GOTO語(yǔ)句。而且完全也可以不用這個(gè)GOTO。

還有不知道你用的什么版本的.net 如果是3.5的完全可以直接用linq。

vb.net 排列組合 代碼

第一題:

不需要任何控件,代碼如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

Do

St = InputBox("數(shù)字的個(gè)數(shù)", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請(qǐng)輸入數(shù)字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "請(qǐng)輸入大于0的數(shù)字!"

Else

Exit Do

End If

End If

Loop

ReDim A(N)

For I = 1 To N

Do

St = InputBox("第" + Str(I) + "個(gè)數(shù)字", "輸入", Int(Rnd * 100))

If St = "" Then

MsgBox "請(qǐng)輸入數(shù)字!"

Else

A(I) = Int(Val(St))

Exit Do

End If

Loop

Next

For I = 1 To N - 1

For J = I + 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

End If

Next

Next

For I = 1 To N

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Next

Print "已經(jīng)把"; N; "個(gè)數(shù)寫入到"; App.Path; "\1.txt 到 "; N; ".txt中.請(qǐng)查看."

End Sub

'已經(jīng)運(yùn)行過(guò).

第二題:

DIM 是變量聲明語(yǔ)句,它的格式為:

dim 變量名[as 格式] [,變量名[as 格式][,變量名[as 格式]......]

其中:

變量名:以字母或漢字開始的字串,代表一個(gè)變量

格式有以下幾種:

屬于數(shù)字的有五種:

(1)字節(jié)型:byte可取值0-255

(2)整形:integer可取值-32768至32767

(3)長(zhǎng)整形:long(可取值范圍很大的正負(fù)整數(shù))

(4)單精度型:single(可取值小數(shù))

(5)雙精度型:double(可取值范圍更大,小數(shù)位數(shù)更多的小數(shù))

字符串型:string(可代表由字母\數(shù)字或漢字組成的字符集合)

布爾型:boolean(取值為ture\false)

日期型:date(可表示形如2009-5-26 02:36這樣的組合)

如果要用姓名\住址\單位名稱...等用字符串型(string)

eg:dim name as string(用name變量表示名字時(shí),聲明成字符串變量)

如果是用數(shù)字需要做計(jì)算,如工資\合計(jì)\人數(shù)....等要用數(shù)字型,但有一個(gè)原則,優(yōu)先選用范圍小的(按照字節(jié)型(byte)\整形(integer)\長(zhǎng)整形(long)\單精度型(single)\雙精度型(double)的順序選擇),夠用就可以了,這樣可以占用內(nèi)存少,運(yùn)算速度快.

eg:dim count as integer(用integer表示員工人數(shù)時(shí),可聲明成整形變量)

eg:dim sum as single(用sum表示工資時(shí),可聲明成單精度型變量)

不知是否說(shuō)得清楚了.

網(wǎng)站欄目：vb.net漢字排序 C語(yǔ)言漢字排序
當(dāng)前URL：http://chinadenli.net/article0/doddhio.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供商城網(wǎng)站、定制網(wǎng)站、微信公眾號(hào)、做網(wǎng)站、網(wǎng)頁(yè)設(shè)計(jì)公司、品牌網(wǎng)站建設(shè)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)