以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  记录窗口问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121774)

--  作者:有点甜
--  发布时间:2018/7/12 20:53:00
--  

currentChanged事件,加入msgbox,能否弹出?

 

Dim r As Row = e.Table.current
msgbox(123)
If r IsNot Nothing Then
    Tables("物料明细表").filter = ""
    Dim i = Tables("物料明细表").findrow("料号=\'" & r("料号") & "\'")
msgbox(i)
    If i >= 0 Then
        Tables("物料明细表").Position = i
    Else
        Tables("物料明细表").filter = "1=2"
    End If
    Tables("入库主表").filter = ""
    i = Tables("入库主表").findrow("物料编号=\'" & r("物料编号") & "\'")
msgbox(i)
    If i >= 0 Then
        Tables("入库主表").Position = i
    Else
        Tables("入库主表").filter = "1=2"
    End If
End If

--  作者:有点甜
--  发布时间:2018/7/13 8:58:00
--  

1、msgbox弹出什么?

 

2、做个具体例子发上来测试。


--  作者:有点甜
--  发布时间:2018/7/13 9:23:00
--  
上传实例测试。
--  作者:有点蓝
--  发布时间:2018/7/13 20:08:00
--  
登录密码是什么?
--  作者:有点蓝
--  发布时间:2018/7/13 22:45:00
--  
做什么操作出问题?说一下具体步骤
--  作者:有点蓝
--  发布时间:2018/7/14 9:29:00
--  
如果窗口表是副本,2个方法


2、窗口afterload,把记录窗口控件绑定窗口副本表
Dim rg As WinForm.RecordGrid = e.Form.Controls("入库主表")
rg.Table = Tables("订单窗体_订单主表")
rg.Build()

--  作者:有点蓝
--  发布时间:2018/7/14 10:46:00
--  
代码没有用好,当然不稳定了。副本基本是一个独立的table,和主表有些用法是会同步,有些用法又是独立的。

http://www.foxtable.com/webhelp/scr/1906.htm,把窗口中的table这章内容好好看看