dim idx as integer = 1
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
Dim rw As Row = dt.rows(r)
For c As Integer = 0 To nms.length -1
If dt.GridTreeVisible Then '如果处于折叠模式
'==================选择性导出行==========================
If rw.Hierarchy=0 And rw.HasChild()=False Or rw.Hierarchy=1 Then '没有子行的第一层和第二层,直接导出
Sheet(idx,c).Value = rw(nms(c)) ‘出错位置
idx += 1
End If
'========================================================
End If
Next
Next
加好友 
发短信
Post By：2022/7/6 14:27:00 [显示全部帖子]
