Question

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

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”））中的数据库获取客户端数据并将数据加载到类中，并从类I中将数据加载到文本框中。 / p>

这是我的问题开始的地方。用户现在将在文本框中更改其详细信息，然后单击“保存更改”按钮，调用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

我只是想将更改的文本值加载到类中，并在SaveUserProfileChanegs（CI）函数中加载该类，以更新数据库中的新值。

当调用butSaveChanges_Click事件时，我得到一个“（1）：错误BC32022：'公共事件Click As EventHandler'是一个事件，不能直接调用。使用'RaiseEvent'语句来引发一个事件。”

需要'RaiseEvent'声明才能举起活动

0 个答案: