窗口中数据调取上一行数据后重复的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中数据调取上一行数据后重复的问题

共有2337人关注过本帖树形打印复制链接主题：窗口中数据调取上一行数据后重复的问题

lungby

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

加好友

发短信

等级：幼狐帖子：97 积分：839 威望：0 精华：0 注册：2018/3/1 9:46:00

窗口中数据调取上一行数据后重复的问题 发帖心情

Post By：2018/4/8 19:39:00 [只看该作者]

请问，

①窗口中设置了打开后直接调取上一行的数据，但是想在保存时检查“委托编号”列是否重复，如果重复弹出提示，确认后返回重新打开窗口的状态，并清空委托编号一栏的内容，如何实现？

在DataColChanging中设置后，打开窗口就直接弹出错误，怎么办呢？

If e.DataCol.Name = "委托编号" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("委托编号 = '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此委托号已经存在!")
        e.Cancel = True
    End If
End If

②还是上面的问题，如果在窗口中设置了打开后直接调取上一行的数据，能否将指定列名为“委托编号”的数据清空？如何写代码？

请分别解答下，谢谢~

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/8 20:25:00 [只看该作者]

贴出你【打开后直接调取上一行的数据】的代码。

或者，在你那段代码的前后加上不触发事件的代码，如 http://www.foxtable.com/webhelp/scr/2218.htm

lungby

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

加好友

发短信

等级：幼狐帖子：97 积分：839 威望：0 精华：0 注册：2018/3/1 9:46:00

Post By：2018/4/8 22:58:00 [只看该作者]

If e.DataTable.DataRows.Count = 0 Then

End If

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1)

For Each dc As DataCol In e.DataTable.DataCols

e.DataRow(dc.Name) = dr(dc.Name)

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/4/8 23:42:00 [只看该作者]

Dim dr As DataRow = e.DataTable.DataRows(e.DataTable.DataRows.Count - 1)
For Each dc As DataCol In e.DataTable.DataCols
    If dc.name <> "委托编号" Then
        e.DataRow(dc.Name) = dr(dc.Name)
    End If
Next

下一主题 >> << 上一主题

主题：窗口中数据调取上一行数据后重复的问题