通过传递XML文档,然后在WEBSERVICE中的方法中解析你的XML,保存即可。

解决方案 »

  1.   

    参数用对象数组,把四个Customer对象都放到数组里去传就可以了!
      

  2.   

    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)