以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于获取最后一行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=62900)

--  作者:sara
--  发布时间:2015/1/9 16:51:00
--  关于获取最后一行

 For i As Integer = CurrentTable.BottomPosition To CurrentTable.TopPosition Step -1
        CurrentTable.Rows(i).Delete
        drTemp = CurrentTable.Rows(i)
    Next 
我知道这段代码是实现删除最后一行,有人能解释下原理吗?

还有一个问题是我如何获得这行?因为我删除之前需要把级联信息删除,

两个问题啊,求答复


--  作者:Bin
--  发布时间:2015/1/9 16:52:00
--  
这段代码是删除你选中的区域.

dim r  as row = CurrentTable.Rows(i)  

--  作者:sara
--  发布时间:2015/1/10 10:38:00
--  
我肯定不能再删除最后一行之后删除关联表的内容,删除关联表的内容不知道该放哪里的。就是我还是没找到获取最后一行的办法啊亲。
--  作者:sara
--  发布时间:2015/1/10 10:39:00
--  
把这一句dim r  as row = CurrentTable.Rows(i)  放在For循环里面会提示问题

--  作者:Bin
--  发布时间:2015/1/10 10:49:00
--  
会有什么问题? 除非你之前声明了R那你就换个变量

你这问题怎么莫名其妙的 牛头对不马嘴


获取最后一行

应该  CurrentTable.Rows(CurrentTable.Rows.count-1)

--  作者:sara
--  发布时间:2015/1/10 10:55:00
--  

Dim Result As DialogResult
Result = MessageBox.Show("确定要删除该条记录?", "提示", MessageBoxButtons.YesNo)
Dim dr As DataRow
Dim drTemp As Row
Dim i As Integer
If Result = DialogResult.Yes Then
    For i  = CurrentTable.BottomPosition To CurrentTable.TopPosition Step -1
drTemp = CurrentTable.Rows(i)
        CurrentTable.Rows(i).Delete
    Next 

 


图片点击可在新窗口打开查看此主题相关图片如下:截图04.png
图片点击可在新窗口打开查看

--  作者:sara
--  发布时间:2015/1/10 11:03:00
--  
我想问的问题是:我想删除选中行,但是删除之前,我想删除该行对应的关联表数据
--  作者:Bin
--  发布时间:2015/1/10 11:05:00
--  
drTemp = CurrentTable.Rows(i)
        CurrentTable.Rows(i).Delete
你获取了行,再删除肯定会报错

你的问题和你的代码都对不上号,上例子吧

--  作者:sara
--  发布时间:2015/1/10 11:13:00
--  
好了,我没用这种方法删除,但是可以解释下提示错误代表啥问题吗
--  作者:Bin
--  发布时间:2015/1/10 11:17:00
--  
8楼已经解释了.
你获取了行,再删除肯定会报错

就好比你身上就100块钱,你把这100块放钱包里,说给我了.   但是你却把这100块给花了. 我再想从钱包里取这100块出来,自然是没有了.自然就出错了