专家坐堂-BeforeClose，不要多余的行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  BeforeClose，不要多余的行  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=118548)

--  作者：huhu
--  发布时间：2018/5/5 11:48:00
--  BeforeClose，不要多余的行
BeforeClose
希望在关闭窗口前，检查如果在表A里面存在相同的行（就是SN列完全相同），那么只保留第一行，其他的都删除。

--  作者：有点蓝
--  发布时间：2018/5/5 13:42:00
--

Dim t As Table = Tables("出库")
t.Sort = "SN"
Dim r As Row = t.Rows.Count - 1
For i As Integer = t.Rows.Count - 2 To 0 Step -1
If r("SN") = t.Rows(i)("SN") Then
t.Rows(i)("SN").Delete
Else
r = t.Rows(i)
End If
Next

--  作者：huhu
--  发布时间：2018/5/7 10:41:00
--

Dim t As Table = Tables("出库")
t.Sort = "SN"
Dim r As Row = t.Rows.Count - 1--------r是row， t.Rows.Count - 1是最后一行，不能=吧。
For i As Integer = t.Rows.Count - 2 To 0 Step -1
If r("SN") = t.Rows(i)("SN") Then
t.Rows(i)("SN").Delete
Else
r = t.Rows(i)
End If
Next

[此贴子已经被作者于2018/5/7 10:42:59编辑过]

--  作者：有点蓝
--  发布时间：2018/5/7 10:55:00
--
嗯，笔误，既然知道，自己改正确即可。