以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  获取e.datarow 行的位置  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189016)

--  作者:puma
--  发布时间:2023/11/6 9:54:00
--  获取e.datarow 行的位置
如题:我想在表保存的时候,返回错误行的位置?
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2023/11/6 10:09:00
--  
参考:http://www.foxtable.com/webhelp/topics/0553.htm,看语法二
--  作者:有点蓝
--  发布时间:2023/11/6 10:10:00
--  
其实获取行的位置没有什么用,因为这个位置是会变的。比如加载的数据行数不一样,位置可能会不一样;按某列排序了,这个位置也会变
--  作者:puma
--  发布时间:2023/11/6 10:25:00
--  
我的需求是:表里有地方没有录入,自动定位到输入录入的地方: 
如表A 的A字段有值 ,B字段必录。   
我想在保存的时候自动定位未录入的B字段所在的行数

--  作者:程兴刚
--  发布时间:2023/11/6 12:47:00
--  
利用Findrow
--  作者:puma
--  发布时间:2023/11/7 11:40:00
--  
通过  _Identify  可以实现定位行

 Dim dr As DataRow
        dr = DataTables("表A").Find("[_Identify] >= " & e.DataRow("_Identify"))
        If dr IsNot Nothing Then
            Dim wz As Integer = Tables("表A").FindRow(dr)
            If wz >= 0 Then
                Tables("表A").Position = wz
            End If
        End If

--  作者:有点蓝
--  发布时间:2023/11/7 11:52:00
--  
这个用法不对。不用那么复杂

            Dim wz As Integer = Tables("表A").FindRow(e.DataRow)
            If wz >= 0 Then
                Tables("表A").Position = wz
            End If

--  作者:puma
--  发布时间:2023/11/7 13:02:00
--  
这样更简单,已修改