1、点开列表项目报错，我看了好多遍也没看出来错在那，代码如下：

If e.Node.Level = 1 Then \'如果单击的是第二层节点
    Dim ps() As String = e.Node.FullPath.Split("\\")
    Dim tr As Row = Tables("收入_tbsr").Current
    Dim dr As DataRow = "SELECT * From {分类} Where [分类] = \'" & dr("分类") & "\' And [明细] = \'" & dr("明细") & "\'"
If dr IsNot Nothing Then \'如果在行政区域表找到对应的行,则将此行的值写入客户表的当前行.
        tr("分类") = dr("分类")
        tr("明细") = dr("明细")       
        e.Form.DropDownBox.Value = tr("明细") \'这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.
    End If
    e.Form.DropDownBox.CloseDropdown()  \'关闭下拉目录树
End If

2、删除按钮要实现的功能是要删除所有选中行，现在一点就全部删掉了，代码如下：

Dim Result As DialogResult
Result = MessageBox.Show("是否删除选定记录!","提示",MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
   DataTables("收入_tbsr").DeleteFor(Tables("收入_tbsr").filter)
   DataTables("收入_tbsr").save()
End If
Tables("收入_tbsr").AllowEdit = False

3、我想在“收入”表里添加记录后自动在“账户”表里的相关记录的收入列的数据同步增加，因为外部数据窗口表，我不会写这个代码了，恳求帮我简单的写下先谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试项目.rar

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

看图中table有复选框，是不是想选中复选框的行删除？

如果是这样可以看看GetCheckedRows

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

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