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


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

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/5/13 20:01:00 [显示全部帖子]

再次请教一个问题。

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/5/15 18:54:00 [显示全部帖子]

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

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/9 20:04:00 [显示全部帖子]

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

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/9 20:08:00 [显示全部帖子]

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

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/16 11:40:00 [显示全部帖子]

原来如此，谢谢老师

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：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
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/6/26 17:57:00 [显示全部帖子]

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

我想请教的是，怎么样修改代码，使得在配置较低的电脑上，代码运行速度一样流畅。
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/9/13 10:52:00 [显示全部帖子]

现在遇到一个问题，之前的试用版貌似时间到了，一打开就提示激活，现在用的开发版，可是有很多别人分享的经典案例都是用试用版做的，开发版打不开怎么办？
 回到顶部
帅哥哟，离线，有人找我吗？
wandongliang
 小大  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/9/13 16:47:00 [显示全部帖子]

明白了，谢谢！

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


加好友 发短信
等级：一尾狐 帖子：415 积分：3604 威望：0 精华：0 注册：2016/1/1 20:20:00 		  发帖心情 Post By：2016/9/14 10:33:00 [显示全部帖子]

昨天试了一下，用商业版可以打开，但是无法查看代码，显示开发功能已经关闭。
 回到顶部
总数 42 上一页 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询