如何在VB中自定义格式化HTTP JSON POST请求

没问题，我来帮你搞定这个需求——从GridView的行命令事件里提取数据，构造指定格式的JSON，然后发送HTTP POST请求。下面是完整的实现代码和详细说明：

第一步：准备必要的命名空间 #

首先确保你的项目引用了这些命名空间，它们会帮我们处理HTTP请求和JSON序列化：

Imports System.Net.Http
Imports System.Text
' 如果使用Json.NET（.NET Framework常用），需要先通过NuGet安装Newtonsoft.Json，再添加：
' Imports Newtonsoft.Json

第二步：完善GridView行命令事件代码 #

下面是完整的GridView1_RowCommand事件实现，包含数据提取、JSON构造和POST请求发送：

Protected Sub GridView1_RowCommand(sender As Object, e As GridViewCommandEventArgs)
    If e.CommandName = "Hold" Then
        ' 获取点击行的索引
        Dim rowIndex As Integer = Convert.ToInt32(e.CommandArgument)
        ' 引用该行的GridViewRow对象
        Dim row As GridViewRow = GridView1.Rows(rowIndex)
        
        ' 从GridView行中提取数据 - 替换成你实际的控件ID或列索引
        ' 示例：从Label控件获取数据，或者用row.Cells(列索引).Text获取BoundField内容
        Dim recordNumber As Integer = Convert.ToInt32(TryCast(row.FindControl("lblRecordNumber"), Label).Text)
        Dim pickupLocation As String = TryCast(row.FindControl("lblPickupLocation"), Label).Text
        ' recordType固定为"b"
        Dim recordType As String = "b"
        
        ' 构造目标格式的JSON对象
        ' 方式1：使用.NET Core/.NET 5+自带的System.Text.Json（无需额外安装）
        Dim postData As New With {
            .recordType = recordType,
            .recordNumber = recordNumber,
            .pickupLocation = pickupLocation
        }
        Dim jsonString As String = System.Text.Json.JsonSerializer.Serialize(postData)
        
        ' 方式2：使用Json.NET（适合.NET Framework，需安装NuGet包Newtonsoft.Json）
        ' Dim postData As New Dictionary(Of String, Object) From {
        '     {"recordType", recordType},
        '     {"recordNumber", recordNumber},
        '     {"pickupLocation", pickupLocation}
        ' }
        ' Dim jsonString As String = JsonConvert.SerializeObject(postData)
        
        ' 发送HTTP POST请求到目标API
        Using httpClient As New HttpClient()
            ' 设置请求内容为JSON格式
            Dim content As New StringContent(jsonString, Encoding.UTF8, "application/json")
            ' 替换成你的实际API地址
            Dim targetApiUrl As String = "https://your-api-endpoint.com/submit"
            
            ' 发送请求（同步执行用.Result，异步场景建议用Await避免阻塞）
            Dim response As HttpResponseMessage = httpClient.PostAsync(targetApiUrl, content).Result
            
            ' 可选：处理API响应
            If response.IsSuccessStatusCode Then
                Dim responseContent As String = response.Content.ReadAsStringAsync().Result
                ' 这里添加请求成功后的逻辑，比如提示用户、更新界面
                ' 例如：MsgBox("请求成功！响应内容：" & responseContent)
            Else
                ' 处理请求失败的情况
                ' 例如：MsgBox("请求失败，状态码：" & response.StatusCode.ToString())
            End If
        End Using
    End If
End Sub

关键细节说明 #

• 数据提取：你需要把代码中的lblRecordNumber和lblPickupLocation替换成GridView中对应数据的控件ID；如果用的是BoundField，可以直接用row.Cells(列索引).Text获取（列索引从0开始）。
• JSON构造：提供了两种方案，根据你的.NET版本选择即可：
  • 新版本.NET（.NET Core/.NET 5+）用内置的System.Text.Json更轻便；
  • .NET Framework建议用Json.NET，兼容性更好。
• HTTP请求：HttpClient是官方推荐的HTTP客户端，记得替换targetApiUrl为你的实际API地址。如果是WebForm异步页面，建议用Await代替.Result，避免页面阻塞。

内容的提问来源于stack exchange，提问作者DJN