Foxtable(狐表) → 用户栏目 → 专家坐堂 → 未将对象应用设置到对象的实例……求解！


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

主题：未将对象应用设置到对象的实例……求解！
帅哥哟，离线，有人找我吗？
wandongliang
 小大  41楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/5/13 20:01:00 [只看该作者]

再次请教一个问题。

局域网内两台机器，使用完全相同的开发之后的项目，为什么保存同样多的数据（不超过10行），一个瞬间完成，一个却要迟钝2秒左右？
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  42楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/5/15 18:54:00 [只看该作者]

有没有哪位老师可以解答一下？

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


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/5/15 21:33:00 [只看该作者]

以下是引用wandongliang在2016/5/13 20:01:00的发言：

再次请教一个问题。

局域网内两台机器，使用完全相同的开发之后的项目，为什么保存同样多的数据（不超过10行），一个瞬间完成，一个却要迟钝2秒左右？

 

不同机器，连接数据库的速度有可能不同的，不同的机器，配置不一样的电脑，处理数据集的速度也不尽相同。
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  44楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/9 20:04:00 [只看该作者]

关于局域网内，远程更新。

开发完成的项目，在局域网内远程更新时，数据库可以同步进行更新么？
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  45楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/9 20:08:00 [只看该作者]

比如说，原本的数据库的表A中有5个数据列，后来软件更改变化，删除了其中一列，然后将软件远程更新，更新之后的数据库中依旧是5个数据列不变，还是变成了4个？

如果是5个数据列不变，那么怎么样才可以让数据库同软件一起同步更新？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  46楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/10 19:19:00 [只看该作者]

 你数据库用的是内部表，还是用access数据库，还是用sqlserver数据库？

 

 如果是内部数据库，它是项目在一起的，你覆盖了项目，也覆盖了数据表；

 

 如果是access数据库等外部数据库，不会覆盖原来的数据。

 

 无论用哪一个，数据列都会变成你最后修改的。
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  47楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/16 11:40:00 [只看该作者]

原来如此，谢谢老师

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/26 15:29:00 [只看该作者]

      我有一段代码，在配置不错的电脑上，执行速度还算挺快，执行时间只需0.5秒左右，可是在配置较差的电脑上，运行速度就非常慢，有没有办法可以简化代码并且提升执行速度？

      代码如下：

 

If e.DataCol.name = "本日签到" Then
    If Vars("签到类型") = ""  And e.NewValue <> "" Then
        MessageBox.Show("请先进行签到信息设置!")
        e.DataRow("本日签到") = ""
    Else
        If e.NewValue = "签到" Then
            If Vars("签到类型") = "普通签到" Then
            e.DataRow("上次活动日期") = Vars("签到时间")
                Dim a As DataRow
                a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
                If a IsNot Nothing Then
                    a("预约") = True
                    a("失约") = False
                    a("迟到") = False
                    a("签到") = True
                    e.DataRow("场次分类") = Vars("场次分类")
                Else
                    Tables("到会明细表").AddNew
                    Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                    Tables("到会明细表").Current("预约") = True
                    Tables("到会明细表").Current("失约") = False
                    Tables("到会明细表").Current("迟到") = False
                    Tables("到会明细表").Current("签到") = True
                    Tables("到会明细表").Current("日期") = Vars("签到时间")
                    Tables("到会明细表").Current("轮次") = Vars("签到场次")
                    e.DataRow("场次分类") = Vars("场次分类")
                End If
            ElseIf  Vars("签到类型") = "大会动员" Then
                e.DataRow("上次活动日期") = Vars("签到时间")
                Dim a As DataRow
                Dim b As DataRow
                a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
                b = DataTables("大会明细").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 时间 = '" & Vars("签到时间") & "'")
                If a IsNot Nothing Then
                    a("预约") = True
                    a("失约") = False
                    a("迟到") = False
                    a("签到") = True
                Else If b IsNot Nothing Then
                    b("动员") = True
                    b("邀请") = True
                    b("时间") = Vars("签到时间")
                    b("产品名") = Vars("产品名")
                Else
                    Tables("到会明细表").AddNew
                    Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                    Tables("到会明细表").Current("预约") = True
                    Tables("到会明细表").Current("失约") = False
                    Tables("到会明细表").Current("迟到") = False
                    Tables("到会明细表").Current("签到") = True
                    Tables("到会明细表").Current("日期") = Vars("签到时间")
                    Tables("到会明细表").Current("轮次") = Vars("签到场次")
                    Tables("大会明细").AddNew
                    Tables("大会明细").Current("永久编号") = e.DataRow("永久编号")
                    Tables("大会明细").current("动员") = True
                    Tables("大会明细").current("邀请") = True
                    Tables("大会明细").current("时间") = Vars("签到时间")
                    Tables("大会明细").current("产品名") = Vars("产品名")
                    e.DataRow("上次活动日期") = Vars("签到时间")
                End If
            ElseIf  Vars("签到类型") = "大会签到" Then
                Dim b As DataRow
                b = DataTables("大会明细").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 时间 = '" & Vars("签到时间") & "'")
                If b IsNot Nothing Then
                    b("动员") = True
                    b("邀请") = True
                    b("大会1") = True
                    b("时间") = Vars("签到时间")
                    b("产品名") = Vars("产品名")
                Else
                    Tables("大会明细").AddNew
                    Tables("大会明细").Current("永久编号") = e.DataRow("永久编号")
                    Tables("大会明细").current("动员") = True
                    Tables("大会明细").current("邀请") = True
                    Tables("大会明细").current("大会1") = True
                    Tables("大会明细").current("时间") = Vars("签到时间")
                    Tables("大会明细").current("产品名") = Vars("产品名")
                End If
            ElseIf  Vars("签到类型") = "小会签到" Then
                e.DataRow("上次活动日期") = Vars("签到时间")
                Dim a As DataRow
                Dim b As DataRow
                a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
                b = DataTables("小会明细").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 时间1 = '" & Vars("签到时间") & "'")
                If a IsNot Nothing Then
                    a("预约") = True
                    a("失约") = False
                    a("迟到") = False
                    a("签到") = True
                Else
                    Tables("到会明细表").AddNew
                    Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                    Tables("到会明细表").Current("预约") = True
                    Tables("到会明细表").Current("失约") = False
                    Tables("到会明细表").Current("迟到") = False
                    Tables("到会明细表").Current("签到") = True
                    Tables("到会明细表").Current("日期") = Vars("签到时间")
                    Tables("到会明细表").Current("轮次") = Vars("签到场次")
                    Tables("小会明细").AddNew
                    Tables("小会明细").Current("永久编号") = e.DataRow("永久编号")
                    Tables("小会明细").Current("参加") = True
                    Tables("小会明细").Current("时间1") = Vars("签到时间")
                    Tables("小会明细").Current("产品名") = Vars("产品名")
                End If
            End If
        End If
        If e.NewValue = "迟到" Then
            If Vars("签到类型") = "普通签到" Then
                e.DataRow("上次活动日期") = Vars("签到时间")
                Dim a As DataRow
                a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
                If a IsNot Nothing Then
                    a("预约") = True
                    a("失约") = False
                    a("迟到") = True
                    a("签到") = False
                    e.DataRow("场次分类") = Vars("场次分类")
                Else
                    Tables("到会明细表").AddNew
                    Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                    Tables("到会明细表").Current("预约") = True
                    Tables("到会明细表").Current("失约") = False
                    Tables("到会明细表").Current("迟到") = True
                    Tables("到会明细表").Current("签到") = False
                    Tables("到会明细表").Current("日期") = Vars("签到时间")
                    Tables("到会明细表").Current("轮次") = Vars("签到场次")
                    e.DataRow("场次分类") = Vars("场次分类")
                End If
            ElseIf  Vars("签到类型") = "大会动员" Then
                e.DataRow("上次活动日期") = Vars("签到时间")
                Dim a As DataRow
                Dim b As DataRow
                a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
                b = DataTables("大会明细").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 时间 = '" & Vars("签到时间") & "'")
                If a IsNot Nothing Then
                    a("预约") = True
                    a("失约") = False
                    a("迟到") = True
                    a("签到") = False
                    e.DataRow("场次分类") = Vars("场次分类")
                Else If b IsNot Nothing Then
                    b("动员") = True
                    b("邀请") = True
                    b("时间") = Vars("签到时间")
                    b("产品名") = Vars("产品名")
                Else
                    Tables("到会明细表").AddNew
                    Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                    Tables("到会明细表").Current("预约") = True
                    Tables("到会明细表").Current("失约") = False
                    Tables("到会明细表").Current("迟到") = True
                    Tables("到会明细表").Current("签到") = False
                    Tables("到会明细表").Current("日期") = Vars("签到时间")
                    Tables("到会明细表").Current("轮次") = Vars("签到场次")
                    Tables("大会明细").AddNew
                    Tables("大会明细").Current("永久编号") = e.DataRow("永久编号")
                    Tables("大会明细").current("动员") = True
                    Tables("大会明细").current("邀请") = True
                    Tables("大会明细").current("时间") = Vars("签到时间")
                    Tables("大会明细").current("产品名") = Vars("产品名")
                End If
            ElseIf  Vars("签到类型") = "大会签到" Then
                Dim b As DataRow
                b = DataTables("大会明细").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 时间 = '" & Vars("签到时间") & "'")
                If b IsNot Nothing Then
                    b("动员") = True
                    b("邀请") = True
                    b("大会1") = True
                    b("时间") = Vars("签到时间")
                    b("产品名") = Vars("产品名")
                Else
                    Tables("大会明细").AddNew
                    Tables("大会明细").Current("永久编号") = e.DataRow("永久编号")
                    Tables("大会明细").current("动员") = True
                    Tables("大会明细").current("邀请") = True
                    Tables("大会明细").current("大会1") = True
                    Tables("大会明细").current("时间") = Vars("签到时间")
                    Tables("大会明细").current("产品名") = Vars("产品名")
                End If
            ElseIf  Vars("签到类型") = "小会签到" Then
                e.DataRow("上次活动日期") = Vars("签到时间")
                Dim a As DataRow
                Dim b As DataRow
                a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
                b = DataTables("小会明细").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 时间1 = '" & Vars("签到时间") & "'")
                If a IsNot Nothing Then
                    a("预约") = True
                    a("失约") = False
                    a("迟到") = True
                    a("签到") = False
                Else
                    Tables("到会明细表").AddNew
                    Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                    Tables("到会明细表").Current("预约") = True
                    Tables("到会明细表").Current("失约") = False
                    Tables("到会明细表").Current("迟到") = True
                    Tables("到会明细表").Current("签到") = False
                    Tables("到会明细表").Current("日期") = Vars("签到时间")
                    Tables("到会明细表").Current("轮次") = Vars("签到场次")
                    e.DataRow("场次分类") = Vars("场次分类")
                    Tables("小会明细").AddNew
                    Tables("小会明细").Current("永久编号") = e.DataRow("永久编号")
                    Tables("小会明细").Current("参加") = True
                    Tables("小会明细").Current("时间1") = Vars("签到时间")
                    Tables("小会明细").Current("产品名") = Vars("产品名")
                End If
            End If
        End If
        If e.NewValue = "失约" Then
            Dim a As DataRow
            a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
            If a IsNot Nothing Then
               If a("签到") = False And a("迟到") = False Then
                  a("预约") = True
                  a("失约") = True
               End If
            Else
                Tables("到会明细表").AddNew
                Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                Tables("到会明细表").Current("预约") = True
                Tables("到会明细表").Current("失约") = True
                Tables("到会明细表").Current("迟到") = False
                Tables("到会明细表").Current("签到") = False
                Tables("到会明细表").Current("日期") = Vars("签到时间")
                Tables("到会明细表").Current("轮次") = Vars("签到场次")
            End If
        End If
        If e.NewValue = "预约" Then
            Dim a As DataRow
            a = DataTables("到会明细表").Find("永久编号 = '" & e.DataRow("永久编号") & "' and 日期 = '" & Vars("签到时间") & "'")
            If a IsNot Nothing  Then
                If a("签到") = False And a("迟到") = False Then
                   a("预约") = True
                   a("失约") = False
                End If
            Else
                Tables("到会明细表").AddNew
                Tables("到会明细表").Current("永久编号") = e.DataRow("永久编号")
                Tables("到会明细表").Current("预约") = True
                Tables("到会明细表").Current("失约") = False
                Tables("到会明细表").Current("迟到") = False
                Tables("到会明细表").Current("签到") = False
                Tables("到会明细表").Current("日期") = Vars("签到时间")
                Tables("到会明细表").Current("轮次") = Vars("签到场次")
            End If
        End If
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  49楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/6/26 16:19:00 [只看该作者]

这段代码没有大问题，上传实例说明问题。

 

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3598 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/26 17:57:00 [只看该作者]

代码运行确实没有问题，但是在某些配置较低的电脑上，运行速度非常慢，只有配置还算不错的电脑，速度才算可以。

我想请教的是，怎么样修改代码，使得在配置较低的电脑上，代码运行速度一样流畅。
 回到顶部
总数 75 上一页 1 2 3 4 5 6 7 8 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08594 秒, 4 次数据查询