vb.net grid激活行或激活单元格的index取得方法

冷不防 2022-10-01 02:59 1阅读 0赞

''' <summary>  
    '''   
    ''' </summary>  
    ''' <param name="sender"></param>  
    ''' <param name="e"></param>  
    ''' <remarks></remarks>  
    Private Sub grdDetail\_AfterCellUpdate(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.CellEventArgs) Handles grdDetail.AfterCellUpdate

Try

Select Case e.Cell.Column.Key

Case "DAY1\_1", "DAY2\_1", "DAY3\_1", "DAY4\_1", "DAY5\_1", "DAY6\_1", "DAY7\_1", "DAY8\_1", "DAY9\_1", "DAY10\_1", \_  
                    "DAY11\_1", "DAY12\_1", "DAY13\_1", "DAY14\_1", "DAY15\_1", "DAY16\_1", "DAY17\_1", "DAY18\_1", "DAY19\_1", "DAY20\_1", \_  
                    "DAY21\_1", "DAY22\_1", "DAY23\_1", "DAY24\_1", "DAY25\_1", "DAY26\_1", "DAY27\_1", "DAY28\_1", "DAY29\_1", "DAY30\_1", "DAY31\_1"

Me.grdDetail.EventManager.AllEventsEnabled = False

'e.Cell.Row.Index ： 取得激活行的index

'e.Cell.Column.Index： 取得激活cell的index

End Select

'Me.grdDetail.Rows(intRowIndex).Cells(intCellIndex).Column.ToString ： 取得激活行,激活cell的列名

Dim strColumnName As String = Me.grdDetail.Rows(intRowIndex).Cells(intCellIndex).Column.ToString  
        Dim intCurrentIndex As Integer = CInt(strColumnName.Substring(strColumnName.IndexOf("Y") + 1, strColumnName.IndexOf("\_") - strColumnName.IndexOf("Y") - 1))

'按cell的列名进行赋值

Me.grdDetail.Rows(intRowIndex).Cells("DAY" & intColIndex & "\_2").Value = System.DBNull.Value

'按cell的index进行赋值

Me.grdDetail.Rows(intRowIndex).Cells(intCellIndex).value=555

'按激活的cell进行赋值

Me.grdDetail.ActiveCell.Value=555

Me.grdDetail.EventManager.AllEventsEnabled = True

Catch ex As Exception  
            Me.grdDetail.EventManager.AllEventsEnabled = True  
  
            If Not objDbConn Is Nothing Then  
                objDbConn.PSb\_CloseDB()  
                objDbConn = Nothing  
            End If  
            Me.Cursor = Cursors.Arrow  
            ComException.Show(Me.FeatureCode, ex)  
        Finally

Me.Cursor = Cursors.Arrow

If Not objDbConn Is Nothing Then  
                objDbConn.PSb\_CloseDB()  
                objDbConn = Nothing  
            End If

End Try  
    End Sub