- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树+增加行 ，公式怎么错了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32261)
-- 发布时间：2013/4/28 11:00:00
-- 目录树+增加行 ，公式怎么错了？
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) \'将最后一行的内容复制到新增行中.
Next
Case "新增不同会议"
\'在此加入相应的代码
此主题相关图片如下：qq截图20130428105831.png
End Select
-- 发布时间：2013/4/28 11:04:00
--
那有 e.DadaTable 这样用的..你有不是在表的事件里.
-- 发布时间：2013/4/28 11:06:00
--
呵呵，本人菜鸭，不好意思，大概意思是知道了，就是不知道用哪个函数
-- 发布时间：2013/4/28 11:10:00
--
你要判断哪个表.就要指定那个表. 比如datatables("表A")
-- 发布时间：2013/4/28 11:47:00
--
改为如下代码 ：
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(“第一列”) \'将最后一行的内容复制到新增行中.
Next
最后一样，还是出错，请教如何改？
-- 发布时间：2013/4/28 11:58:00
--
呵呵，你这个事件也没有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
你的代码错误很多，也没有搞清楚事件是怎么回事，建议您先按顺序学习。
看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》
-- 发布时间：2013/4/28 11:59:00
--
嘻嘻，谢谢老师