参考代码
Dim t As Table = Tables("B001HYZLB")
Dim r As Row = t.current
'获取某行的1级下属
For Each dr As DataRow In t.DataTable.Select("B001HYZLB_JueDuiCchengJi=" & r("B001HYZLB_JueDuiCchengJi")+1 & " And B001HYZLB_CengJiMa Like '" & r("B001HYZLB_CengJiMa") & "%'")
output.show(dr("B001HYZLB_DianZiDingDanHao") & " " & dr("B001HYZLB_YongHuID") & " " & dr("B001HYZLB_CengJiMa"))
Next
[此贴子已经被作者于2018/5/20 16:37:58编辑过]