Option Explicit On
Option Strict On
Partial Public Class RTAaddstatus
Inherits System.Web.UI.Page
Dim db As New dbDatabaseDataContext()
Dim currentTime As String = DateTime.Now.ToString()
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
lblUpdater.Text = My.User.Name
Me.lblUpdateTime.Text = currentTime
End Sub
Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnSave.Click
If (txtDetail.Text.Trim() <> "") AndAlso (ddProjectName.Text.Trim() <> "") Then
System.Threading.Thread.Sleep(100)
'lblCurrentTime.Text = currentTime
' Dim datetimenow As String = CStr(Now())
Dim u As New updatedetail()
u.ProjectName = ddProjectName.Text.Trim()
u.Detail = txtDetail.Text.Trim()
u.Updater = lblUpdater.Text.Trim()
u.UpdateTime = currentTime
db.updatedetails.InsertOnSubmit(u)
db.SubmitChanges()
gvAddStatus.DataBind()
'txtDetail.Text = ""
End If
End Sub
Protected Sub btnClear_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnClear.Click
'txtDetail.Text = ""
End Sub
End Class