查找单据编号第一次和最后一次出位的行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Names As New List(Of String)

For Each r As Row In Tables(e.Form.name & "_table2").Rows

If Names.Contains(r("单据编号"))= False Then

Names.Add(r("单据编号"))

End If

Dim i,j As Integer

For Each nm As String In names

For Each r As Row In Tables(e.Form.name & "_table2").Rows

If nm = r("单据编号") Then

i=i+1

End If

MessageBox.Show(i)

此主题相关图片如下：ccc.jpg

这段代码可以弹出每一个单据编号最后一次出现的位置,请问一下老师我要弹出第一次出现的位置,代码要怎么修改

[此贴子已经被作者于2017/3/2 14:57:09编辑过]

主题：查找单据编号第一次和最后一次出位的行