Dim Customer As New hotelserviceRF.clsCustomer() Customer.Name = txtName.Text Customer.Sex = Drdsex.SelectedItem.Text …… Dim hserice As New webserviceRF.HOTELService() hserice.NewCustomer(Customer1) hserice.NewCustomer(Customer2) hserice.NewCustomer(Customer3) hserice.NewCustomer(Customer4)
Customer.Name = txtName.Text
Customer.Sex = Drdsex.SelectedItem.Text
……
Dim hserice As New webserviceRF.HOTELService()
hserice.NewCustomer(Customer1)
hserice.NewCustomer(Customer2)
hserice.NewCustomer(Customer3)
hserice.NewCustomer(Customer4)