共3 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：请老师指教如下代码出错
1楼
fvcfox 发表于：2024/11/22 20:56:00Dim s As String
Dim tb As Table = Tables("物料清单C")
s = tb.Current("物料")
Do While tb.Current.Parent.Index > -1
MessageBox.Show(tb.Current.Parent.Index)
tb.Position = tb.Current.Parent.Index
s = tb.Current("物料") & "\" & s
Loop
MessageBox.Show(s)
此主题相关图片如下：微信截图_20241122205447.png
将Do While tb.Current.Parent.Index > -1
改成：Do While tb.Current.Parent isnot nothing
不执行循环
[此贴子已经被作者于2024/11/22 20:58:13编辑过]
2楼
y2287958 发表于：2024/11/22 21:27:00先判断一下当前行是否存在
3楼
有点蓝 发表于：2024/11/23 9:15:00http://www.foxtable.com/webhelp/topics/0445.htm
Dim s As String
Dim tb As Table = Tables("物料清单C")
Dim r As Row = tb.Current
If r IsNot Nothing Then
s = r("物料")
r = r.Parent
Do While r IsNot Nothing
MessageBox.Show(r.Index)
tb.Position = r.Index
s = r("物料") & "\" & s
r = r.Parent
Loop
MessageBox.Show(s)
End
共3 条记录, 每页显示 10 条, 页签:
[1]