Foxtable(狐表)用户栏目专家坐堂 → Position定位不对


  共有1980人关注过本帖平板打印复制链接

主题:Position定位不对

帅哥哟,离线,有人找我吗?
goldenfont
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:389 积分:3874 威望:0 精华:0 注册:2016/4/25 17:36:00
Position定位不对  发帖心情 Post By:2020/2/14 19:50:00 [只看该作者]

老师,出现个怪问题,我的窗口表Table1,同时在窗口中使用了RecordGrid,然后在afterSel中判断旧的行是不是有未填字段,然后进行提示是否保存,但是我选择否以后,我希望是Table回到以前的行,但是为什么回不去啊?但是RecordGrid是回去的,这是什么问题?
If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
    If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
        Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) '获得原来选择的行
        If r.DataRow.RowState <> DataRowState.Unchanged Then
            '提示是否需要保存原来的数据,然后在切换过去
            If MessageBox.Show("当前数据有更新,需要保存吗?","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Information)=DialogResult.Cancel Then
                '切换回到原来的那行
                Dim idx As Integer = e.Table.FindRow(r.DataRow)
                e.Table.Position = idx
                Return
            End If
            r.Save
        End If
    End  If
End If

 回到顶部