Thinker

Personal e-notepad


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

    Aueeins
    Aueeins
    水面上的小草

    帖子数 : 173
    积分 : 3435
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

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

    Post by Aueeins on 21/09/11, 07:35 am

    -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
    确认是一致的
    Aueeins
    Aueeins
    水面上的小草

    帖子数 : 173
    积分 : 3435
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

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

    Post by Aueeins on 21/09/11, 07:48 am

    Private Sub pShowViewMode()里
    要记得 Call pRowUpdate()
    Aueeins
    Aueeins
    水面上的小草

    帖子数 : 173
    积分 : 3435
    威望 : 0
    注册日期 : 2011-09-08
    地点 : SG

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

    Post by Aueeins on 21/09/11, 07:55 am


    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
    markeloff
    markeloff
    无尽星空

    帖子数 : 244
    积分 : 3538
    威望 : 0
    注册日期 : 2011-09-06
    年龄 : 31
    地点 : Singapore

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

    Post by markeloff on 22/09/11, 04:04 am

    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

    Sponsored content

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

    Post by Sponsored content


      Current date/time is 22/02/20, 01:37 pm