Foxtable(狐表)用户栏目专家坐堂 → 请老师指教如下代码出错


  共有45人关注过本帖树形打印复制链接

主题:请老师指教如下代码出错

帅哥哟,离线,有人找我吗?
fvcfox
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:573 积分:5453 威望:0 精华:0 注册:2020/5/7 13:05:00
请老师指教如下代码出错  发帖心情 Post By:2024/11/22 20:56:00 [只看该作者]

Dim 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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4760 积分:34608 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/11/22 21:27:00 [只看该作者]

先判断一下当前行是否存在

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110750 积分:563676 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/11/23 9:15:00 [只看该作者]

http://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 

 回到顶部