1、服务端项目的HttpRequest事件代码:

Select Case e.Path
    Case "AddNew.htm"
        Dim nms() As String = {"产品","客户","数量","单价","日期"}
        For  Each nm As String In nms
            If e.PostValues.ContainsKey(nm) = False Then
                e.AppendCookie("error","请输入" & nm)
                Return
            End If
        Next
        Dim dr As DataRow = DataTables("订单").AddNew()
        For  Each nm As String In nms
            dr(nm) = e.PostValues(nm)
        Next
        dr.Save()
        e.WriteString(dr("_Identify")) \'返回主键列的值给客户端
        dr.Remove() \'移除此行
End Select

2、客户端项目可以通过以下代码增加订单，并获得新增订单的主键：

Dim hc As New HttpClient("http://127.0.0.1/AddNew.htm")
hc.FormData.Add("产品","PD01")
hc.FormData.Add("客户","CS01")
hc.FormData.Add("数量","100")
hc.FormData.Add("单价","98")
hc.FormData.Add("日期",Date.Today)
Dim ret As String = hc.getData()
If hc.rCookies.ContainsKey("error") Then
    MessageBox.Show(hc.rCookies("error"), "提示", MessageBoxButtons.OK ,MessageBoxIcon.Warning)
Else
    MessageBox.Show("增加行成功,新增行的主键为:" & ret)
End If

无法执行成功，任然报错，错误提示

此主题相关图片如下：360截图20190612213821398.jpg