0

我在网站上有一个页面，在文本框中显示客户详细信息。

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’语句引发事件。”

4

0 回答 0