For Each dr As DataRow In dt.Select("","KMBH") If dr.IsNull("KMBH") = False AndAlso dr("KMBH").Length = 4 Then Dim i As Integer = CInt(dr("KMBH").Substring(0,1))
msgbox(i) '这里分别弹出什么值 nd = tr.Nodes(i).Nodes.Add(dr("KMBH"),dr("KMBH") & " " & dr("KMMC")) Functions.Execute("AddChildren",nd,dt,"") End If Next
加好友 
发短信
Post By：2018/8/29 17:23:00 [只看该作者]
