- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 提示"内部索引已损坏",怎么回事? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12158)
-- 发布时间：2011/8/24 17:33:00
-- 提示"内部索引已损坏",怎么回事?
如题.不知怎么回事.
此主题相关图片如下：出错提示—内部索引损坏.jpg
-- 发布时间：2011/8/24 17:52:00
--
贴出代码看看
-- 发布时间：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
-- 发布时间：2011/8/24 19:49:00
--
代码没有看出什么来，判断一下rr和rr2是不是nothing吧。
-- 发布时间：2011/8/25 0:45:00
--
猜测一下：Forms("产品输入_入库")没有打开！