Private Sub dgAssetSpec_AfterColEdit(ByVal ColIndex As Integer)
Dim sAssetSpecDataGrid As String
sAssetSpecDataGrid = dgAssetSpec.Columns(dgAssetSpec.Col).Caption
Select Case sAssetSpecDataGrid
Case "参数"
Set rsInspection = New ADODB.Recordset
With rsInspection
.CursorType = adOpenDynamic
.CursorLocation = adUseClient
.LockType = adLockPessimistic
.Source = "SELECT * FROM tblassetSpec WHERE serialnumber ='" & adoAsset.Recordset.Fields("serialnumber").Value & "'"
Set .ActiveConnection = cnnCMMS
.Open
End With
Set dgAssetSpec.DataSource = rsInspection