Question

我在VB.net中创建了一个表单，点击一个按钮，多个变量被传递给Web服务。我的代码如下：

Imports MySql.Data.MySqlClient
Imports OutlookAddIn2.mantistest
Dim QService As New MantisConnectPortTypeClient

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim value1 As String
        Dim value2 As String
        Dim value3 As String
        Dim value4 As String
        Dim viewstate As String


        value1 = Project_Name.SelectedItem.ToString()
        value2 = ComboBox2.SelectedItem.ToString()
        value3 = ComboBox3.SelectedItem.ToString()
        value4 = TextBox4.Text
        Dim s As String = String.Format("Value 1: {0}  value2 : {1} value3: {2} value4: {3}", value1, value2, value3, value4)
        Windows.Forms.MessageBox.Show(s)

        TextBox1.Text = QService.mc_issue_add(username:="**", password:="**", issue:="view_state:{0} project{1}")

    End Sub

我的网络服务的输入参数是：

项目
分类
优先级
状态

当我尝试按以下方式放置时，我会收到以下错误：

代码： issue:=("Category:{0} project{1}",value1, value2) 错误： value1说预期会发出命名参数。
代码： TextBox1.Text = QService.mc_issue_add(username:="**", password:="**", view_state:=value1, Project:=value2) 错误：未为公共职能issue

QService.mc_issue_add(Username as String, Password as String, issue as mantistest.Issuedata)As string

我哪里出错了？我尝试使用单个输入值的其他参数，它工作正常。感谢任何帮助。

Answer 1

我必须像这样单独描述字段

    Dim mantNote As IssueData
    mantNote = New IssueData

    Dim idField As String
    idField = " "

    Dim view_stateField As ObjectRef
    view_stateField = New ObjectRef
    view_stateField.id = 10
    view_stateField.name = " "

    Dim last_updatedField As Date
    last_updatedField = Date.FromOADate(6 / 6 / 2016)

    Dim projectField As ObjectRef
    projectField = New ObjectRef
    projectField.id = 1
    projectField.name = "test"

    Dim categoryField As String
    categoryField = "test"

并将其添加到1个描述

下

    mantNote.id = idField
    mantNote.view_state = view_stateField
    mantNote.last_updated = last_updatedField
    mantNote.project = projectField
    mantNote.category = categoryField
    TextBox1.Text = QService.mc_issue_add(username:=" ", password:=" ", issue:=mantNote)

如何在VB.net中将多个值传递给Web服务

1 个答案: