在程序中如何刷新treeview的内容？

Question

你是用什么方法关联的？TREEVIEW的内容需要手动更新的。

Answer 1

将数据先写进数组，再用nodes.add加入数组元素

Answer 2

要自己写代码，先用TreePm.Nodes.Clear清除所有的结点，在重新添加
参考下例：
Private Sub Tree_Ref()
Dim strBh As String
Dim strMc As String
TreePm.Nodes.Clear
With Rs
  Do Until .EOF
     strBh = Trim(Rs!bh)
     strMc = Trim(Rs!mc)
     Select Case Len(strBh)
     Case 1  '长1时为根结点
      TreePm.Nodes.Add , , strBh, strBh & " " & strMc
     Case Else
      TreePm.Nodes.Add Mid(strBh, 1, Len(strBh) - 2), tvwChild, strBh, strBh & " " & strMc
     End Select
  .MoveNext
  Loop
 End With
End Sub