以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  窗口事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76250)
--  作者：jinzhengbe
--  发布时间：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

 

 

写在 窗口事件里的 ，红色部分应该怎么改？
--  作者：狐狸爸爸
--  发布时间：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
--  发布时间：2015/10/26 21:26:00
--  

ok

非常感谢