VB-Long Long Long Learning

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上

Me.PTools.Enabled = Not status
ButtonControl必备

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