共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：提示"内部索引已损坏",怎么回事?
1楼
cpayinyuan 发表于：2011/8/24 17:33:00如题.不知怎么回事.
此主题相关图片如下：出错提示—内部索引损坏.jpg
此主题相关图片如下：出错提示—内部索引损坏.jpg2楼
狐狸爸爸 发表于：2011/8/24 17:52:00贴出代码看看
3楼
cpayinyuan 发表于：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
4楼
狐狸爸爸 发表于：2011/8/24 19:49:00代码没有看出什么来，判断一下rr和rr2是不是nothing吧。
5楼
程兴刚 发表于：2011/8/25 0:45:00猜测一下：Forms("产品输入_入库")没有打开！
共5 条记录, 每页显示 10 条, 页签:
[1]