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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 查找单据编号第一次和最后一次出位的行

共有2022人关注过本帖树形打印复制链接主题：查找单据编号第一次和最后一次出位的行

bobolan521

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：637 积分：7362 威望：0 精华：1 注册：2013/11/26 7:49:00

查找单据编号第一次和最后一次出位的行 发帖心情

Post By：2017/3/2 14:53:00 [显示全部帖子]

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编辑过]

bobolan521

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：637 积分：7362 威望：0 精华：1 注册：2013/11/26 7:49:00

Post By：2017/3/3 13:15:00 [显示全部帖子]

老师你给的写法不对啊,这样的话,每次都弹出来的,而不是只弹出第一次和最后一次

[此贴子已经被作者于2017/3/3 13:28:37编辑过]

bobolan521

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：三尾狐帖子：637 积分：7362 威望：0 精华：1 注册：2013/11/26 7:49:00

Post By：2017/3/3 18:38:00 [显示全部帖子]

谢谢老师, For i = idx + 1 To t.Rows.Count - 1 这句应该改成 For i = idx + 1 To t.Rows.Count 要不然最后一个弹不出来的

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