大师：下面的语句为何加红色的代码就不行？字典的集合为空？Dim zd As new Dictionary(of String,List(of String))Dim jh As new List(of String)
jh = DataTables("类型表").GetValues("编号")
For Each zf As String In jh
'Output.Show(zf)
Dim jh1 As new List(of DataRow)
jh1 = DataTables("类型表").Select("编号 = '" & zf & "'")
'Output.Show(jh1.Count)
Dim jh2 As new List(of String)
For Each tr As DataRow In jh1
jh2.Add(tr("索引"))
Next
zd.Add(zf,jh2)
'jh1.Clear
'jh2.Clear
Next
加好友 
发短信
Post By：2020/7/6 23:18:00 [只看该作者]
