VB.Net中如何把DataGridView中某一列的字段值的最大值放入textbox中?

VB.Net中如何把DataGridView中某一列的字段值的最大值放入textbox中?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a(Me.DataGridView1.RowCount - 1) As Integer
For i As Integer = 0 To Me.DataGridView1.RowCount - 1
a(i) = Me.DataGridView1.Rows(i).Cells(1).Value '假设第1列吧
Next
Call Sort(a)
End Sub

Public Sub Sort(ByVal list As Integer())
Dim i As Integer, j As Integer, temp As Integer
Dim done As Boolean = False
j = 1
While (j < list.Length) AndAlso (Not done)
done = True
For i = 0 To list.Length - j - 1
If list(i) > list(i + 1) Then
done = False
temp = list(i)
list(i) = list(i + 1)
list(i + 1) = temp
End If
Next
j += 1
End While
Me.TextBox1.Text = list(Me.DataGridView1.RowCount - 1)
End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2011-02-28
是网页吗,网页用JS去实现好一些,尽量将一些可以前台实现的功能放到前台,减少服务器负拜担,如果是WINFROM 那还是用 licj12的方法吧 ,他的不错
第2个回答  2011-02-28
DataGridView可以通过rows[i].column[j]获取每个单元格的值,遍历一下去最大的值吧

VB.Net中如何把DataGridView中某一列的字段值的最大值放入textbox...
a(i) = Me.DataGridView1.Rows(i).Cells(1).Value '假设第1列吧 Next Call Sort(a)End Sub Public Sub Sort(ByVal list As Integer())Dim i As Integer, j As Integer, temp As Integer Dim done As Boolean = False j = 1 While (j < list.Length) AndAlso (Not done)done =...

VB.Net 怎么把 DataGridView中选到的某一行中的某一列(比如第一列)得...
1.SelectedRows(0).Cells(0).Value.ToString()因为DataGridView可能是可以多选的,所以获得选中行是个数组,要加索引,将选中的第一行的第一列的值赋给TextBox1.

vb.net中,如何将datagridview选中的值传给另一个窗体中的一个textbox控...
Public Class frmDialog Property ReturnID As String Private Sub OK_Button_Click(sender As Object, e As EventArgs) Handles OK_Button.Click ReturnID = DataGridViewX1.SelectedRows(0).Cells(0).Value.ToString() Me.DialogResult = True End SubEnd Class'主窗体Public Class...

当我双击DataGridView中的一行时,就把这行的值和ID值同时付给TextBox控 ...
} this.[你命名的textbox名称].Text = this.[你命名的dgv名称].CurrentRow.Cells[0].Value.ToString();上面的cells[0]是dgv中的第1列...以此类推..

在vb.net上dategridview上修改后的数据怎么保存在数据库中。例如,点...
窗口的相对TextBox 的代码如下:1 2 信息显示.TextBox1.Text = DataGridView1.SelectedRows(0).Cells("Name_CN").Value.ToString'中文姓名为例,其他的跟这个一样。信息显示.ShowDialog()完成修改的SQL代码如下:1 UPDATE 表名 SET Name_CN='新值', Name_EN='新值' WHERE 列名=条件 ...

vb.net 如何实现DataGridView1与TEXTBOX之间的数据库绑定
TextBox.text=datagridview.currecell.value

VB.NET 中datagrid一列怎么求和
回答:DataBindItem 事件中 将值累加

vb.net怎么将datagridview的数据写入数据库
将textbox中的数据添加到datagridview中就不用说了吧 datagridview中更新导数据库 使用:定义 OleDbCommandBuilder(DataAdapter)DataAdapter.Update(DataSet)DataGridView.Update()

vb.net中从DataGridView里面把数据导出到excel中
excel.Cells(1, i + 1) = DataGridView1.Columns(i).HeaderText Next '设置标题 Dim j As Integer For i = 0 To DataGridView1.Rows.Count - 1 '填充数据 For j = 0 To DataGridView1.Columns.Count - 1 excel.Cells(i + 2, j + 1) = DataGridView1(j, i).Value Next Next ex...

如何实现VB.NET实现代码在datagridview选中行,并在datagridview显示区域...
第一行是选中行号所在的行,第二行是移动滚动条将选中的行在显示区域的最上放显示出来。二:根据内容选中行并显示 For i = 0 To datagridview1.Rows.Count - 1 If datagridview1.Rows(i).Cells("列的名称").Value = 要选中行列的值 Then datagridview1.Rows(i).Selected = True datagrid...

相似回答