在控件中使用到判断单元格是否越界。但没有用到。因为使用了另外一种初始化网格。有两种初始化网格的方法：1.根据行列数和行标题，生成一个空白网格。有标题，里面数据全是空白字符" "。2.根据表DataTable，生成相应的网格。
下面的这一段代码应该用到方法1中。
#Region "验证单元格是否存在的<a href="https://www.jb51.cc/tag/hanshu/" target="_blank" class="keywords">函数</a>." Private Function IsValidRowAndColumn(ByVal Row As Integer,ByVal Column As Integer) As Boolean If Column < 0 OrElse Row < 0 Then Message<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Show(Me,"网格行列数不可以为负","网格<a href="https://www.jb51.cc/tag/cuowu/" target="_blank" class="keywords">错误</a>") Return False ElseIf Row > Me.Lv.Items.Count Then Message<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Show(Me,"行数越界:" & Row.ToString,"网格<a href="https://www.jb51.cc/tag/cuowu/" target="_blank" class="keywords">错误</a>") Return False ElseIf Column > Me.Lv.Columns.Count Then Message<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Show(Me,"列数越界:" & Column.ToString(),"网格<a href="https://www.jb51.cc/tag/cuowu/" target="_blank" class="keywords">错误</a>") Return False Else Return True End If End Function Private Function IsValidRow(ByVal Row As Integer) As Boolean If Row < 0 Then Message<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Show(Me,"网格行数不可以为负","网格<a href="https://www.jb51.cc/tag/cuowu/" target="_blank" class="keywords">错误</a>") Return False Else Return True End If End Function Private Function IsValidColumn(ByVal Column As Integer) As Boolean If Column < 0 Then Message<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>.Show(Me,"网格列数不可以为负","网格<a href="https://www.jb51.cc/tag/cuowu/" target="_blank" class="keywords">错误</a>") Return False Else Return True End If End Function #End Region #Region "<a href="https://www.jb51.cc/tag/huoqu/" target="_blank" class="keywords">获取</a>或设置单元格的值" Public Sub SetCellValue(ByVal Row As Integer,ByVal Column As Integer,ByVal ItemValue As String) If IsValidRowAndColumn(Row,Column) Then If Column = 0 Then Me.Lv.Items(Row).Text = ItemValue Else Me.Lv.Items(Row).SubItems(Column).Text = ItemValue End If End If End Sub Public Function GetCellValue(ByVal Row As Integer,ByVal Column As Integer) As String If IsValidRowAndColumn(Row,Column) Then If Column = 0 Then Return Me.Lv.Items(Row).Text Else Return Me.Lv.Items(Row).SubItems(Column).Text End If Else Return <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> End If End Function #End Region
自己写的初始化网格窗体:
Public Delegate Sub AfterRowSelectEventHandler(ByVal sender As Object,ByVal e As SelectEventArgs) Public Class FrmPopLv Public Event AfterRowSelectEvent As AfterRowSelectEventHandler Private mCols,mRows As Integer Private DataTB As DataTable Private _ColumnsNameArray As String() Private _SelectedRow As Da<a href="https://www.jb51.cc/tag/Taro/" target="_blank" class="keywords">Taro</a>w Private _Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex As Integer = -1 Property Table() As DataTable Get Return DataTB End Get Set(ByVal value As DataTable) DataTB = value InitializeGridProperties(DataTB) End Set End Property Public Property ColumnsNameArray() As String() Get If _ColumnsNameArray Is <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Then Return New String() {} Else Return _ColumnsNameArray End If End Get Set(ByVal value As String()) _ColumnsNameArray = value End Set End Property Public Sub New() InitializeComponent() End Sub Public Sub New(ByVal tb As DataTable) InitializeComponent() InitializeGridProperties(tb) Me.Table = tb End Sub Public Sub New(ByVal tb As DataTable,ByVal columnsNameArray As String()) InitializeComponent() If columnsNameArray IsNot <a href="https://www.jb51.cc/tag/nothing/" target="_blank" class="keywords">nothing</a> Then InitializeGridProperties(tb,columnsNameArray) Else InitializeGridProperties(tb) End If Me.Table = tb End Sub Private Sub InitializeGridProperties(ByVal tb As DataTable) If tb.Columns.Count > 0 Then Dim ColumnsName(tb.Columns.Count - 1) As String For i As Integer = 0 To tb.Columns.Count - 1 ColumnsName(i) = tb.Columns(i).Caption Next InitializeGridProperties(tb,ColumnsName) End If End Sub Private Sub InitializeGridProperties(ByVal tb As DataTable,ByVal columnsNameArray As String()) Me.Lv.Items.Clear() Me.Lv.Columns.Clear() Dim i As Integer Dim w As Integer = 50 mCols = tb.Columns.Count mRows = tb.Rows.Count If columnsNameArray.Length <> mCols Then Msg<a href="https://www.jb51.cc/tag/Box/" target="_blank" class="keywords">Box</a>("<a href="https://www.jb51.cc/tag/zidingyi/" target="_blank" class="keywords">自定义</a>列字段与表的列数不对称。") Exit Sub End If '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a><a href="https://www.jb51.cc/tag/biaoti/" target="_blank" class="keywords">标题</a> For i = 0 To mCols - 1 Me.Lv.Columns.Add(columnsNameArray(i)) Next '<a href="https://www.jb51.cc/tag/tianjia/" target="_blank" class="keywords">添加</a>数据 For i = 0 To mRows - 1 Dim item As New ListViewItem(tb.Rows(i)(0).ToString) For j As Integer = 1 To mCols - 1 item.SubItems.Add(tb.Rows(i)(j).ToString) Next Me.Lv.Items.Add(item) Next '改<a href="https://www.jb51.cc/tag/biaoti/" target="_blank" class="keywords">标题</a>宽度 For i = 0 To mCols - 1 '这一句不可以放到前面。不然第一列列宽变大。 Me.Lv.Columns(i).AutoResize(ColumnHeaderAutoResizeStyle.HeaderSize) Next End Sub Private Sub FrmPopLv_Deactivate(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles Me.Deactivate Me.Close() End Sub Private Sub FrmPopLv_KeyDown(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.KeyEventArgs) Handles Me.KeyDown If e.KeyData = Keys.Escape Then Me.Close() End If End Sub Private Sub FrmPopLv_Leave(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles Me.Leave Me.Close() End Sub Private Sub Lv_DoubleClick(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.EventArgs) Handles Lv.DoubleClick If Me.Lv.SelectedItems.Count > 0 Then _Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex = Me.Lv.Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ices(0) _SelectedRow = Me.Table.Rows(_Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex) Dim se As New SelectEventArgs(_Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex,_SelectedRow) RaiseEvent AfterRowSelectEvent(Me,se) Me.Close() End If End Sub Private Sub Lv_KeyDown(ByVal sender As Object,ByVal e As Sy<a href="https://www.jb51.cc/tag/stem/" target="_blank" class="keywords">stem</a>.Windows.Forms.KeyEventArgs) Handles Lv.KeyDown If e.KeyData = Keys.Enter Then If Me.Lv.SelectedItems.Count > 0 Then _Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex = Me.Lv.Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ices(0) _SelectedRow = Me.Table.Rows(_Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex) Dim se As New SelectEventArgs(_Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex,_SelectedRow) RaiseEvent AfterRowSelectEvent(Me,se) Me.Close() End If End If End Sub Public ReadOnly Property SelectedRow() As Da<a href="https://www.jb51.cc/tag/Taro/" target="_blank" class="keywords">Taro</a>w Get Return _SelectedRow End Get End Property Public ReadOnly Property Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex() As Integer Get Return _Selecte<a href="https://www.jb51.cc/tag/dind/" target="_blank" class="keywords">dind</a>ex End Get End Property End Class
最后界面：
