在窗体 TreeFrm，初始化事件 Initialize()下面写入树形控件初始化动作.Private Sub UserForm_Initialize() Dim LastRowId As Integer Dim j As Integer Dim node_grade As String Dim node_father As String Me.ch_mutilple.Value = False '多选模式选择框初始化为默认不选择 Me.TreeView1.Che...
在窗体TreeFrm,初始化事件Initialize()下面写入树形控件初始化动作. PrivateSubUserForm_Initialize()DimLastRowIdAsIntegerDimjAsIntegerDimnode_gradeAsStringDimnode_fatherAsStringMe.ch_mutilple.Value=False'多选模式选择框初始化为默认不选择Me.TreeView1.CheckBoxes=False'将树形结构初始化为单选模式LastRowId=Sheet1.Ce...