Foxtable(狐表) → 用户栏目 → 专家坐堂 → 诺诺开piao平台API无法接入


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

主题：诺诺开piao平台API无法接入
帅哥哟，离线，有人找我吗？
zoyong
 小大  31楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

        Dim ftp As new FTPClient
        ftp.Port = vars("FTP_端口")
        ftp.host = vars("FTP_ip地址")
        ftp.Account = vars("FTP_账号")
        ftp.password = vars("FTP_密码")
            
            '目录下的所有文件
            Dim fls As List(of String)
            fls = ftp.GetFileList("\系统更新\DataBak")
            For Each fl As String In fls
                Dim sz As Date = ftp.GetFileTime(fl)
                If sz.AddDays(60) < Date.Today Then
                    ftp.DeleteFile(fl) 
                End If                
            Next

删除远程创建日期大于60天的文件，代码无效
[此贴子已经被作者于2021/7/9 17:14:05编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  32楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

啥问题？

GetFileTime返回的是ftp上指定文件最后一次修改的日期时间。不是创建时间

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


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

Dim sk As String = "郑文星,郑建岩,王益着,宝柯人,郑相力,郑笑"
    Dim xm As String = """" & sk.Replace(",",""",""") & """"
    Dim Names As String() = {xm}        
    For Each Name As String In Names
        Dim dr As DataRow = dt.Find("姓名 = '" & Name & "'")
        If dr Is Nothing Then
            msgbox(name)

        End If
    Next

   name = "郑文星","郑建岩","王益着","宝柯人","郑相力","郑笑"    什么原因

想要 name = 郑文星     name = 郑建岩    ......




[此贴子已经被作者于2021/7/10 9:12:46编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  34楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

没看懂什么意思

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


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

    Dim sk As String = r("列六")       ‘这个列的内容=郑文星,郑建岩,王益着,宝柯人,郑相力,郑笑
    Dim xm As String = """" & sk.Replace(",",""",""") & """"
    Dim Names As String() = {xm}        
    For Each Name As String In Names
        Dim dr As DataRow = dt.Find("姓名 = '" & Name & "'")
        If dr Is Nothing Then
           dr = dt.addnew
           dr("姓名") = Name
           dr.save
        End If
    Next

上面的代码执行结果   name = "郑文星","郑建岩","王益着","宝柯人","郑相力","郑笑"   
 回到顶部
帅哥，在线噢！
有点蓝
 小大  36楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

截图表格数据说明一下

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


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

Dim r As Row = Tables(e.Form.name & "_table1").current
If r("明细标志") < 1 Then
    Dim rq As Date = r("出勤日期")
    Dim sk As String = r("出勤人员")   ‘内容=郑文星,郑建岩,王益着,宝柯人,郑相力,郑笑
    Dim cmd As New SQLCommand        '后台查找
    cmd.C
    cmd.CommandText = "se lect * from {SK_出勤明细} where 出勤日期='" & rq & "'"
    Dim dt As DataTable = cmd.ExecuteReader(True)
    Dim xm As String = """" & sk.Replace(",",""",""") & """"
    Dim Names As String() = {xm}     
 
    For Each Name As String In Names
        Dim dr As DataRow = dt.Find("姓名 = '" & Name & "'")
        If dr Is Nothing Then
            dr = dt.AddNew()
            dr("姓名") = Name
            dr("出勤日期") = rq
            dr.Save
            r("明细标志") = 1
            r.Save
        End If
    Next
End If

想要的结果是表新增6行
姓名 = 郑文星
出勤日期= rq

姓名 = 郑建岩
出勤日期= rq

姓名 = 王益着
出勤日期= rq

姓名 = 宝柯人
出勤日期= rq

姓名 = 郑相力
出勤日期= rq

姓名 = 郑笑
出勤日期= rq


现在错误的结果  
表只新增了一行
姓名=  "郑文星","郑建岩","王益着","宝柯人","郑相力","郑笑" 
出勤日期 = rq
 回到顶部
帅哥，在线噢！
有点蓝
 小大  38楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106184 积分：540043 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/10 11:41:00 [只看该作者]

Dim r As Row = Tables(e.Form.name & "_table1").current
If r("明细标志") < 1 Then
    Dim rq As Date = r("出勤日期")
    Dim sk As String = r("出勤人员")   '内容=郑文星,郑建岩,王益着,宝柯人,郑相力,郑笑
    Dim cmd As New SQLCommand        '后台查找
    cmd.C
    cmd.CommandText = "se lect * from {SK_出勤明细} where 出勤日期='" & rq & "'"
    Dim dt As DataTable = cmd.ExecuteReader(True)
    For Each Name As String In sk.split(",")
        Dim dr As DataRow = dt.Find("姓名 = '" & Name & "'")
        If dr Is Nothing Then
            dr = dt.AddNew()
            dr("姓名") = Name
            dr("出勤日期") = rq
            dr.Save
        End If
    Next
    r("明细标志") = 1
    r.Save
End If
 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  39楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

HttpServer.WebPath = "d:\web"

这个可不可以这样写

HttpServer.WebPath = "d:\web\2020"   或  HttpServer.WebPath = "d:\web\" & date.today.year
 回到顶部
帅哥，在线噢！
有点蓝
 小大  40楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

可以，帮助只是举例说明，没有规定只能使用"d:\web"这个路径，可以是任意路径，把weui框架文件放入指定路径即可

 回到顶部
总数 60 上一页 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.04688 秒, 4 次数据查询