比如,nodemousedoubleclick事件,写代码
Dim fpath As String = e.node.FullPathe.Form.DropDownBox.Value = fpath.Split("\")(0)e.Form.DropTable.Current("会计科目_明细科目") = fpath.replace(fpath.Split("\")(0), "")e.Form.DropDownBox.CloseDropdown