提示"内部索引已损坏",怎么回事? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 提示"内部索引已损坏",怎么回事?

共有11450人关注过本帖树形打印复制链接主题：提示"内部索引已损坏",怎么回事?

cpayinyuan

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

加好友

发短信

等级：六尾狐帖子：1412 积分：8937 威望：0 精华：0 注册：2008/9/1 8:57:00

提示"内部索引已损坏",怎么回事? 发帖心情

Post By：2011/8/24 17:33:00 [只看该作者]

如题.不知怎么回事.
图片点击可在新窗口打开查看

此主题相关图片如下：出错提示—内部索引损坏.jpg

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/8/24 17:52:00 [只看该作者]

贴出代码看看

cpayinyuan

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

加好友

发短信

等级：六尾狐帖子：1412 积分：8937 威望：0 精华：0 注册：2008/9/1 8:57:00

Post By：2011/8/24 19:10:00 [只看该作者]

代码很简单:

Dim tt As Table=Tables("产品输入_入库_Table1")
Dim rr As Row=tt.current

Dim dry As Datarow = Datatables("产品表").find("[上层编号]='" & rr("产品编号") & " '")

If dry isnot Nothing
    tt.Filter="[上层编号]='" & rr("产品编号") & "'"
Else
    Dim rr2 As Row=Tables("生产入库表").current
    rr2("产品编号")=rr("产品编号")
    rr2("产品名称")=rr("产品名称")
    Forms("产品输入_入库").close()
End If

还有另外一个出错提示,如图.

此主题相关图片如下：出错提示22.jpg