Thinker

Personal e-notepad


    VB-Long Long Long Learning

    Aueeins
    Aueeins
    水面上的小草

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

    VB-Long Long Long Learning Empty VB-Long Long Long Learning

    Post by Aueeins on 19/09/11, 03:19 am

    Private Sub f01Profession_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    Try
    Me.Text = mGlobal.setFormTitle("PROFESSION", vppCompanyName, UCase(vpStaffId), UCase(vpStaffName))
    Call pDs01Profession()
    Call pDataBinding()
    Call pRecordCount()
    dgv01Profession.Select()
    Call pLockMenu()
    Catch ex As Exception
    MsgBox("<f01Profession.f01Profession_Load> " & ex.Message)
    End Try
    End Sub

    多了个gv01Profession.Select(),为了把焦点放在dgv上
    Aueeins
    Aueeins
    水面上的小草

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

    VB-Long Long Long Learning Empty Re: VB-Long Long Long Learning

    Post by Aueeins on 19/09/11, 03:30 am

    Me.PTools.Enabled = Not status
    ButtonControl必备
    Aueeins
    Aueeins
    水面上的小草

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

    VB-Long Long Long Learning Empty Re: VB-Long Long Long Learning

    Post by Aueeins on 19/09/11, 03:43 am

    urgent ST201109-59
    加一个(MainDetRef C,25) 不可编辑
    进BILLING;BILLING(VIEW)
    同时记得在m02Sales更新新的column
    -ZPatch1

    Sponsored content

    VB-Long Long Long Learning Empty Re: VB-Long Long Long Learning

    Post by Sponsored content


      Current date/time is 26/05/20, 01:59 pm