Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") DataTables("Bom").DataRows.Clear For Each nd As WinForm.TreeNode In trv.allNodes Dim dr As DataRow = DataTables("BOM").Addnew() dr("级码") = nd.fullname.replace("\",".") dr("产品名称") = nd.Text Next DataTables("BOM").Save()