主题：目录树+增加行 ，公式怎么错了？

呵呵，你这个事件也没有e.datarow吧？

你要做的是什么呢？

也许应该是：

If DataTables("表A").DataRows.Count = 0 Then '如果是一个空表
    Return  '那么返回
End If
Dim ColNames As String() = {"第一列","第二列","第三列"} '定义一个数组,保存复制列的名称
Dim dr1 As DataRow = DataTables("表A").DataRows(DataTables("表A").DataRows.Count - 1) '获得最后一行
Dim dr2 As DataRow =  DataTables("表A").Addnew
For Each ColName As String In ColNames
    dr2(Colname) = dr1(Colname) '将最后一行的内容复制到新增行中.
Next

你的代码错误很多，也没有搞清楚事件是怎么回事，建议您先按顺序学习。

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》