Foxtable(狐表)用户栏目专家坐堂 → [求助]客户端类模拟表单


  共有1548人关注过本帖树形打印复制链接

主题:[求助]客户端类模拟表单

帅哥哟,离线,有人找我吗?
2474842866
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:910 威望:0 精华:0 注册:2019/5/19 21:50:00
[求助]客户端类模拟表单  发帖心情 Post By:2019/6/12 21:39:00 [只看该作者]

在执行模拟表单操作时,使用实例代码

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
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
2474842866
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:910 威望:0 精华:0 注册:2019/5/19 21:50:00
  发帖心情 Post By:2019/6/12 21:56:00 [只看该作者]

问题已经解决了,谢谢

 回到顶部