Private Sub PlanRenewal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load End Sub Public Sub CmdNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdNew.Click End Sub
DTBookingDate.Enabled = DateEnable Query(Dt5, "select top 1 [Transaction].TranCode,[Transaction].InstallmentAuto from [Transaction] order by [Transaction].Recordno desc;") If Dt5.Rows.Count > 0 Then lblLastTransCode.Text = "Last Trans Code : " + Dt5.Rows(0)(0).ToString End If
Comments
Post a Comment