Foxtable(狐表) → 用户栏目 → 专家坐堂 → SQL后台取值


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

主题：SQL后台取值
帅哥哟，离线，有人找我吗？
zoyong
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/8/16 17:31:00 [只看该作者]

https://netmarket.oss.aliyuncs.com/24f3a489-9de6-47d6-bdf7-4824f3ad5dcf.pdf?spm=5176.2020520132.101.5.20b57218WReAeF&file=24f3a489-9de6-47d6-bdf7-4824f3ad5dcf.pdf
接口地址

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:24f3a489-9d.zip


[此贴子已经被作者于2019/8/16 17:33:06编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/16 17:37:00 [只看该作者]

这个只是服务文档，不是开发文档

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  43楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/8/16 18:07:00 [只看该作者]

https://market.aliyun.com/products/56928004/cmapi027583.html?spm=5176.730005.productlist.d_cmapi027583.10c93524pksV9u&innerSource=search_%E7%9F%AD%E4%BF%A1#sku=yuncode2158300000

找遍了，也没发现文档，只有页面上提示


Dim hc As New HttpClient("http://dingxin.market.alicloudapi.com/dx/sendSms?mobile=13511461766&param=1234&tpl_id=TP1711063")     这个要改
hc.Headers.Add("Authorization","APPCODE " & "33826f58cd5045f59c0b55986ecb74ff")
Dim jo As JObject = Jobject.Parse(hc.GetData)
Output.Show(jo.ToString)

[此贴子已经被作者于2019/8/16 18:10:30编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/16 20:28:00 [只看该作者]

Dim hc As New HttpClient("http://dingxinyx.market.alicloudapi.com/dx/marketSendSms?mobile=13511461766&param=1234&tpl_id=TP1711063")
hc.Headers.Add("Authorization","APPCODE 33826f58cd5045f59c0b55986ecb74ff")
hc.C
Dim ret = hc.GetData
Output.Show(ret)
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/8/17 12:42:00 [只看该作者]

.NET Framework 版本：2.0.50727.8806
Foxtable 版本：2018.10.9.1
错误所在事件：
详细错误信息：
远程服务器返回错误: (400) 错误的请求。

蓝老师，还是不行啊，用你的代码，还是提示错误，帮忙再看一下

Dim hc As New HttpClient("http://dingxin3.market.alicloudapi.com/dx/largeSendSms?mobile=13511461766&param=1234&tpl_id=TP1802096")
hc.Headers.Add("Authorization","APPCODE 33826f58cd5045f59c0b55986ecb74ff")
hc.Content = "短信内容"
Dim ret = hc.GetData
Output.Show(ret)


开发文档
https://market.aliyun.com/products/56928004/cmapi026132.html?spm=5176.2020520132.101.2.6e4e7218FM3eBN#sku=yuncode20132000014
[此贴子已经被作者于2019/8/17 14:40:45编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/8/17 14:13:00 [只看该作者]

44楼的部分内容被屏蔽了，没注意看

Dim hc As New HttpClient("http://dingxinyx.market.alicloudapi.com/dx/marketSendSms?mobile=13511461766&param=1234&tpl_id=TP1711063")
hc.Headers.Add("Authorization","APPCODE 33826f58cd5045f59c0b55986ecb74ff")
hc.Content = "短信内容"
Dim ret = hc.GetData
Output.Show(ret)
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/9/10 13:53:00 [只看该作者]

AfterCheckRow


If e.Row.Checked Then
    For Each r As Row In e.Table.GetCheckedRows '遍历所有已经勾选的行
        Dim sum As Double
        sum = e.Tables.Compute(Sum(数量))
        e.Form.Controls("本次抵扣").text = "选定抵扣金额:" & sum
    Next
End If

怎样合计只勾选行的金额
[此贴子已经被作者于2019/9/10 14:10:37编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  48楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/10 14:05:00 [只看该作者]

If e.Row.Checked Then
   Dim sum As Double
    For Each r As Row In e.Table.GetCheckedRows '遍历所有已经勾选的行
     
        sum += r(“数量”)
        
    Next
e.Form.Controls("本次抵扣").text = "选定抵扣金额:" & sum
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：653 积分：7735 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/9/18 19:38:00 [只看该作者]

    For Each jt As JToken In jo("data")
        'Output.Show(jt("ennmcd").ToString & " " & jt("ennm").ToString & " " & jt("reportStatus").ToString & " " & jt("time").ToString & " " & jt("status").ToString)
        Dim dr As DataRow = DataTables("日常巡查_Table1").Find("唯一标识 = '" & jt("id").ToString & "'")        
        If dr Is Nothing Then
            dr = DataTables("日常巡查_Table1").AddNew()
            dr("唯一标识") = jt("id").ToString
            dr("工程编码") = jt("ennmcd").ToString
            dr("水库名称") = jt("ennm").ToString
            dr("省平台上报状态") = jt("reportStatus").ToString
            dr("市平台入库时间") = jt("time").ToString
            dr("开始时间") = jt("beginTime").ToString
            dr("结束时间") = jt("endTime").ToString
            dr("状态") = jt("status").ToString
        ElseIf dr IsNot Nothing And dr("省平台上报状态") <> "1" Then    '"唯一标识"不为空且"省平台上报状态"<>1  则复盖行
            dr("唯一标识") = jt("id").ToString
            dr("工程编码") = jt("ennmcd").ToString
            dr("水库名称") = jt("ennm").ToString
            dr("省平台上报状态") = jt("reportStatus").ToString
            dr("市平台入库时间") = jt("time").ToString
            dr("开始时间") = jt("beginTime").ToString
            dr("结束时间") = jt("endTime").ToString
            dr("状态") = jt("status").ToString
        End If
        i = i + 1
    Next

帮忙修改一下红色代码，下载更新，如果"唯一标识"不为空且"省平台上报状态"<>“1”  则复盖行
 回到顶部
帅哥，在线噢！
有点蓝
 小大  50楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/19 8:53:00 [只看该作者]

ElseIf dr("省平台上报状态") <> "1" andalao dr.isnull("唯一标识") = false Then

 回到顶部
总数 54 上一页 1 2 3 4 5 6 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询