vb.net datagridview 几行一起排序

黑体字下面是要这样吗？ vb的代码 我不太懂，只会c#的，  但是给你个思路， 就是纵向合并单元格嘛。 

创新互联专注于当涂网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供当涂营销型网站建设，当涂网站制作、当涂网页设计、当涂网站官网定制、微信小程序服务，打造当涂网络公司原创品牌,更为您提供当涂网站排名全网营销落地服务。

我贴一段c#的代码，。， 您理解下， 应该不困难。。。

代码 把AllowUserToAddRows设置为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);

/**/

////绘制线条,这些线条是单元格相互间隔的区分线条,

////因为我们只对列name做处理,所以datagridview自己会处理左侧和上边缘的线条

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);

}

}

//右侧的线

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

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

e.CellBounds.Bottom - 1);

e.Handled = true;

}

}

}

}

下面是我用的datatable   这个dataset是网上copy的

DataSet dataset = new DataSet();//库

//表

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 如何对数据库查询结果记录集排序？

加了单引号就是一个常量字符串了，对于每一行都是一样的

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

VB.NET中数据的排序问题

建议用 DataGridView（你用的是它吧？）内建的排序方法来排序。介绍和示例代码可以参考MSDN：

VB.net 排序

你这个是冒泡排序么？从大到小么？

For j = 0 To lstNetworkRisk.Items.Count - 1 应该改成

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

另外尽量不要用GOTO语句。而且完全也可以不用这个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("数字的个数", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "请输入大于0的数字!"

Else

Exit Do

End If

End If

Loop

ReDim A(N)

For I = 1 To N

Do

St = InputBox("第" + Str(I) + "个数字", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

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 "已经把"; N; "个数写入到"; App.Path; "\1.txt 到 "; N; ".txt中.请查看."

End Sub

'已经运行过.

第二题:

DIM 是变量声明语句,它的格式为:

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

其中:

变量名:以字母或汉字开始的字串,代表一个变量

格式有以下几种:

属于数字的有五种:

(1)字节型:byte可取值0-255

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

(3)长整形:long(可取值范围很大的正负整数)

(4)单精度型:single(可取值小数)

(5)双精度型:double(可取值范围更大,小数位数更多的小数)

字符串型:string(可代表由字母\数字或汉字组成的字符集合)

布尔型:boolean(取值为ture\false)

日期型:date(可表示形如2009-5-26 02:36这样的组合)

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

eg:dim name as string(用name变量表示名字时,声明成字符串变量)

如果是用数字需要做计算,如工资\合计\人数....等要用数字型,但有一个原则,优先选用范围小的(按照字节型(byte)\整形(integer)\长整形(long)\单精度型(single)\双精度型(double)的顺序选择),够用就可以了,这样可以占用内存少,运算速度快.

eg:dim count as integer(用integer表示员工人数时,可声明成整形变量)

eg:dim sum as single(用sum表示工资时,可声明成单精度型变量)

不知是否说得清楚了.

网页标题：vb.net汉字排序 C语言汉字排序
文章路径：http://kswjz.com/article/doddhio.html