摘要: Sub TreeFill3(cTime As String, ByVal cKey As String) Tree3.Nodes.Clear ' 循环填充tree1控件内容 Dim c As String Dim cNode As Node Dim cSql As String Dim cRec As rdoResultset Dim cR... 阅读全文
posted @ 2008-06-23 11:19 艾伦 阅读(1066) 评论(0) 推荐(0) 编辑