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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口事件

共有2394人关注过本帖树形打印复制链接主题：窗口事件

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

窗口事件

Post By：2015/10/25 13:41:00 [只看该作者]

If Tables("补货补货.qt").Current.IsNull("shangcheng")=True '判断是否不符合验证要求
    MessageBox.Show("商城为空,请输入或者删除行") '提示用户
    Dim Index As Integer
    Index = Tables("补货补货.qt").FindRow(Row) '找出此行在销售数据Table中的位置
    If Index > -1 Then '如果找到此行
        Tables("补货补货.qt").Position = Index '将焦点定位到此行
    End If
    MainTable = Tables("补货补货.qt") '选择销售数据表作为主表.
    e.Cancel = True '取消存盘
    Return
End If

写在窗口事件里的，红色部分应该怎么改？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/10/25 16:38:00 [只看该作者]

If Tables("补货补货.qt").Current.IsNull("shangcheng")=True '判断是否不符合验证要求
    MessageBox.Show("商城为空,请输入或者删除行") '提示用户
Else
    Dim Index As Integer
    Dim Row As DataRow = DataTables("表名").Find(合成的条件)
    If Row IsNot Nothing Then
        Index = Tables("补货补货.qt").FindRow(Row) '找出此行在销售数据Table中的位置
        If Index > -1 Then '如果找到此行
            Tables("补货补货.qt").Position = Index '将焦点定位到此行
        End If
    End If
    MainTable = Tables("补货补货.qt") '选择销售数据表作为主表.
    e.Cancel = True '取消存盘
End If

看看FindRow的帮助，注意语法二的说明：

http://www.foxtable.com/help/topics/0553.htm

jinzhengbe

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

加好友

发短信

等级：五尾狐帖子：1062 积分：9781 威望：0 精华：0 注册：2012/3/13 5:23:00

Post By：2015/10/26 21:26:00 [只看该作者]

非常感谢

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

主题：窗口事件