cityRate.vb Imports Microsoft.VisualBasic Public Class CityRate Public Id As Int
ID: 3648777 • Letter: C
Question
cityRate.vbImports Microsoft.VisualBasic
Public Class CityRate
Public Id As Integer
Public City As String
Public rate As String
End Class
default.aspx
Imports System.Data
Partial Class _Default
Inherits System.Web.UI.Page
Private SelectedCustomer As CityRate
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles Me.Load
If IsPostBack = False Then
ddlCity.DataBind()
End If
SelectedCustomer = Me.GetSelectedCustomer
lblRate.Text = SelectedCustomer.rate
End Sub
Private Function GetSelectedCustomer() As CityRate
Dim dvTable As DataView = CType(AccessDataSource1.Select( _
DataSourceSelectArguments.Empty), DataView)
dvTable.RowFilter = "City = '" & ddlCity.SelectedValue & "'"
Dim customerRow As DataRowView = dvTable(0)
Dim cityRate As New CityRate
cityRate.rate = CDec(customerRow("Rate"))
Return cityRate
End Function
End Class
Explanation / Answer
what have to be calculated
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.