VB里面.TreeView1.Nodes.Add(fxbm, tvwChild, "key_" & bm, bm & "-" & km,

前面完整的语句是这样的：
For i = 1 To (a - 2)
x = i * 2 + 2
adosql = "SELECt 编码,科目,级别 From [科目管理$] where 级别 = " & i + 2 & ";"
' cnn.Execute (adsql)
temp.Open adosql, cnn, adOpenStatic
If temp.RecordCount <> 0 Then
temp.MoveLast
temp.MoveFirst
For b = 1 To temp.RecordCount
km = temp.Fields("科目")
bm = temp.Fields("编码")
fxbm = "key_" & Left(bm, x) '父项编码 取编码第一位,以判断科目大类别
'MsgBox km & "-" & bm
.TreeView1.Nodes.Add(fxbm, tvwChild, "key_" & bm, bm & "-" & km, 1, 2).Tag = i + 2
'treeview的参数KEY不能为数字,因此要用key_作文本组合
'MsgBox temp.Fields("科目")
temp.MoveNext
Next
temp.Close
Else
End If
Next
显示 .TreeView1.Nodes.Add(fxbm, tvwChild, "key_" & bm, bm & "-" & km, 1, 2).Tag = i + 2这句有问题。求大神改下。（是我从excel一个财务做账报表里面提取出来的，改了下会计科目就成这样了，上面的完全看不懂。。）

把.TreeView1前面的点去掉试试。

支持一下感觉挺不错的