主题：[求助]外部数据表的列表项目和删除问题求助

1 没看懂你的意思···

2 删除按钮:

Dim Result As DialogResult
Result = MessageBox.Show("是否删除选定记录!","提示",MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    For i As Integer = Tables("收入_tbsr").count -1 To 0 step -1
        If Tables("收入_tbsr").Rows(i).Checked = True
            Tables("收入_tbsr").Rows(i).Delete()
        End If
    Next
    DataTables("收入_tbsr").save()
End If
Tables("收入_tbsr").AllowEdit = False

1 这样：？

If e.Node.Level = 1 Then '如果单击的是第二层节点

    Dim tr As Row = Tables("收入_tbsr").Current
    tr("明细") = e.Node.Name

    e.Form.DropDownBox.CloseDropdown()  '关闭下拉目录树
End If

加上：
    tr("分类") = e.node.ParentNode.name

就可以了，我以为你会呢。