目录树+增加行，公式怎么错了？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.Node.Name

Case "新增同类会议"

If e.DataTable.DataRows.Count = 0 Then '如果是一个空表

Return '那么返回

End If

Dim ColNames As String() = {"第一列","第二列","第三列"} '定义一个数组,保存复制列的名称

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1) '获得最后一行

For Each ColName As String in ColNames

e.DataRow(ColName) = dr(ColName) '将最后一行的内容复制到新增行中.

Case "新增不同会议"

'在此加入相应的代码

此主题相关图片如下：qq截图20130428105831.png

End Select

那有 e.DadaTable 这样用的..你有不是在表的事件里.

呵呵，本人菜鸭，不好意思，大概意思是知道了，就是不知道用哪个函数

你要判断哪个表.就要指定那个表. 比如datatables("表A")

改为如下代码：

If DataTables（”表A"）.DataRows.Count = 0 Then '如果是一个空表

Return '那么返回

End If

Dim ColNames As String() = {"第一列","第二列","第三列"} '定义一个数组,保存复制列的名称

Dim dr As DataRow = DataTabless("表A").DataRows(DataTables("表A"）.DataRows.Count - 1) '获得最后一行

For Each ColName As String in ColNames

e.DataRow(“第一列”) = dr(“第一列”) '将最后一行的内容复制到新增行中.

最后一样，还是出错，请教如何改？

呵呵，你这个事件也没有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

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

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

嘻嘻，谢谢老师

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

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