【ADD/SAVE/之后的刷新&选定问题】选择最新条目--Grid的第一栏为Code

-Grid的第一栏为Code

-Private Sub btnSaveAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSaveAdd.Click
If btnSaveAdd.Visible = False Then Exit Sub
确认是一致的

Private Sub pShowViewMode()里
要记得 Call pRowUpdate()

If vpAddRefresh = True Then Call pAfterAddRefresh(intSqlCode)
Call pRowUpdate()
Me.dgv01Department.Select()
Select Case vpSource
Case "AddNew" : vpSource = "" : Call btnAdd_Click(sender, e)
Case "Delete" : vpSource = "" : Call btnRefresh_Click(sender, e)
End Select

Call pPositionRecord(intSqlCode) ' Refresh the records and reposition the pointer to the last record added
If vpSource = "AddNew" Then
vpSource = ""
Call btnDAdd_Click(sender, e)
End If
Me.dgv01IndustryCompany.Select()
在detail里的ADD和EDIT，加这句；
再加下面的进P-Function
Public Sub pPositionRecord(ByVal pCode As Integer)
Call pDs01CompanyIndustryRecord()
Call pClearDataBindingDet()
Call pDataBindingDet()
Call pRecordCount()
If pCode <> 0 Then
cls00Common.PositionRecordInGrid(dgv01IndustryCompany, pCode)
End If
End Sub