|
''' <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 （编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
