我在网站上有一个页面,在文本框中显示客户详细信息。
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not page.IsPostBack Then
Dim dh As New Datahandler
Dim CI As ClientInfomation = dh.GETClientInfomationWithClientID(Session("ClientID"))
txtClientID.Text = Session("ClientID")
txtCompany.Text = CI.Company
txtEmail.Text = CI.Email
txtPassword.text = CI.Password
dtSubcriptionEndDate.Text = CI.SubscriptionEndDate
txtContactName.Text = CI.ContactName
txtTelephoneNum.Text = CI.Telephone.ToString()
End If
上面的代码有效,代码从 GETClientInfomationWithClientID(Session("ClientID")) 中的数据库中获取客户端数据并将数据加载到一个类中,然后从该类中将数据加载到文本框中。
这是我的问题开始的地方。用户现在将在文本框中更改他的详细信息,然后单击调用 butSaveChanges_Click 事件的“保存更改”按钮。
Protected Sub butSaveChanges_Click(sender As Object, e As EventArgs) Handles butSaveChanges.Click
Dim dh As New Datahandler
Dim CI As New ClientInfomation With {.ClientID = txtClientID.Text,
.Company = txtCompany.Text,
.ContactName = txtContactName.Text,
.Email = txtEmail.Text,
.Password = txtPassword.Text,
.SubscriptionEndDate = dtSubcriptionEndDate.Text,
.Telephone = txtTelephoneNum.Text}
If dh.SaveUserProfileChanegs(CI) = True Then
ClientScript.RegisterStartupScript(Me.[GetType](), "alert", "alert('Changes has been saved')", True)
Else
ClientScript.RegisterStartupScript(Me.[GetType](), "alert", "alert('Changes could not be saved')", True)
End If
End Sub
我只想将更改的文本值加载到类中,并在 SaveUserProfileChaegs(CI) 函数中加载类,该函数会更新数据库中的新值。
当调用 butSaveChanges_Click 事件时,我收到“(1):错误 BC32022:‘公共事件单击作为 EventHandler’是一个事件,不能直接调用。使用‘RaiseEvent’语句引发事件。”