Foxtable(狐表) → 用户栏目 → 专家坐堂 → 数据入库等待时间


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

主题：数据入库等待时间
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

这个是设置的显示文字，和全局代码没有什么关系

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/2/20 19:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190220193238.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20190220193224.png
图片点击可在新窗口打开查看

这个内部函数是什么意思？不是控制时间的吗？
我的程序是为了批量修改数据时使用的该怎么设置呢？如果不设置这个函数会发生错误的


[此贴子已经被作者于2019/2/20 19:37:34编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

顾名思义，就是模拟一个长时间运行的代码。您可以改为自己的比如“批量入库”的代码

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/2/20 20:56:00 [只看该作者]

这样设置的代码会不会真的批量入一次库呢？还有这个时间肯定和实际进程的时间不一样的吧？

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


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

试试就知道了。这里的【长时间】只是一个概念，表示需要运行比较久的代码和逻辑处理，不是什么具体的时间值

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/2/20 23:19:00 [只看该作者]

批量添加图片按钮代码如下：
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
    m_Image = GetImage("修改数据.gif")    '此处用来定义要显示的GIF动画图片
    SetWaitFrm.ShowWaitFrm("正在处理数据,请稍等...","plcltp")
    For Each dr As DataRow In DataTables("客户资料表").Select("姓名 is not null")
        Dim str As String = dr("姓名")
        For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
            If name.Contains(str) Then
                FileSys.CopyFile(file, ProjectPath & "照片\" & name, True)
                Dim ls = dr.Lines("客户照片")
                If ls.contains(name) = False Then
                    ls.add(name)
                    dr.lines("客户照片") = ls
                End If
            End If
        Next
    Next
  DataTables("客户资料表").datacols("客户照片").DefaultFolder  = ProjectPath & "照片\"
End If


内部函数“plcltp”代码如下：
For i As Integer = 0 To 3000
i=i=1
Next

运行后出现
（1）不停止
（2）不执行复制图片动作
麻烦看看什么原因
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

内部函数“plcltp”原来的代码去掉，把复制图片的代码放到这个函数里面

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/2/21 8:29:00 [只看该作者]

按您的方法复制如下代码：

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    MessageBox.Show("你选择的目录是:" & dlg.SelectedPath,"提示")
      For Each dr As DataRow In DataTables("客户资料表").Select("姓名 is not null")
        Dim str As String = dr("姓名")
     For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
            Dim name As String = FileSys.GetName(file)
            If name.Contains(str) Then
                FileSys.CopyFile(file, ProjectPath & "照片\" & name, True)
                Dim ls = dr.Lines("客户照片")
                If ls.contains(name) = False Then
                    ls.add(name)
                    dr.lines("客户照片") = ls
                End If
            End If
        Next
            Next
  DataTables("客户资料表").datacols("照片").DefaultFolder  = ProjectPath & "照片\"
End If
运行后
还是停不下来并且一张图片也不复制
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

上传具体实例说明

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2019/2/21 9:07:00 [只看该作者]

蓝老师您看看
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目7.rar
 回到顶部
总数 23 上一页 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.04492 秒, 5 次数据查询