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


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

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


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：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”  则复盖行
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2019/9/20 10:51:00 [显示全部帖子]

有没有办法，根据月份，新增行数
比如9月份有30天，选择9月后点新增，当前表就新增了30行
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：7775 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/7/4 16:16:00 [显示全部帖子]

只加载自己新增的数据和负责区域的数据

Dim qy as String = "金华市,武义县,居仙县"    ‘区域
Dim cmd As New SQLCommand
Dim nm As String  = "校对"
cmd.C
cmd.CommandText ="Se lect * From {Users} Where 姓名 = '" & nm & "' or 区域 = '" & qy & "'"

红色的’区域‘怎么实现
 回到顶部
总数 28 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询