i += drs.Count
rt.Cells(i, 0).Text = idx
idx += 1
i += 1
类别字典新增一列"是否有子项"
If n("是否有子项") = "无子项" Then
i += 1
End If
老师，用 n("是否有子项") ，还是 lst("是否有子项") ？
还是这样写：
If Tables("类别字典").Rows("是否有子项") = "无子项" Then
i += 1
End If
[此贴子已经被作者于2024/5/11 21:49:44编辑过]
老师，昨晚又想了一下，感觉这样修改更妥一些：
首先，类别字典新增一列"是否有子项"。
其次，将这句代码Dim lst As List(Of String) = DataTables("类别字典").GetValues("类号|材料类别", "", "排序号1")改为：Dim lst As List(Of String) = DataTables("类别字典").GetValues("类号|材料类别|是否有子项", "", "排序号1")
最后。改为
If n(2) = "无子项" Then
i += 1
End If
老师，这样写对吧，这个代码还未在系统里验证，
[此贴子已经被作者于2024/5/12 10:50:27编辑过]
Dim lst As List(Of String()) = DataTables("类别字典").GetValues("类号|材料类别|是否有子项", "", "排序号1")
最后。改为