代码问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 代码问题

共有2713人关注过本帖树形打印复制链接主题：代码问题

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/22 12:18:00 [只看该作者]

t.DataTable.Load(False)

改成

For Each dr As DataRow In t.DataTable.DataRows
    If dr.RowState = DataRowState.Unchanged Then
        dr.Load
    End If
Next

qinlao666

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2015/9/22 15:20:00 [只看该作者]

以下是引用大红袍在2015/9/22 12:18:00的发言：

t.DataTable.Load(False)

改成

For Each dr As DataRow In t.DataTable.DataRows
    If dr.RowState = DataRowState.Unchanged Then
        dr.Load
    End If
Next

改后运行速度要慢很多，这是为什么？

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/22 15:33:00 [只看该作者]

单行load，肯定比一起load要慢。

没有办法，必须把新增修改的也一起保存。

qinlao666

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：443 积分：3766 威望：0 精华：0 注册：2015/3/3 10:06:00

Post By：2015/9/22 16:27:00 [只看该作者]

Dim t As Table = Args(0)
Dim flt As String = t.Filter '获取过滤条件
Dim Int As Integer = t.Position '获取行位置
Dim p As point = t.ScrollPosition '获取行在屏幕中位置
t.StopRedraw
t.DataTable.Load(False)
t.Filter = flt
t.Position = Int
t.ScrollPosition = p
t.ResumeRedraw

老师在计划管理里中执行上面的内部函数，出现如图问题
dvubb