以文本方式查看主题

-  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=20029)

--  作者:kensou11111
--  发布时间:2012/5/27 14:41:00
--  [讨论]自定义录入界面

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

在这个自定义录入界面的案例中,

 

4、将Table控件的DoubleClick事件设置为:

Dim tbl As Table = Tables("窗口1_Table1")
If
tbl.Current IsNot Nothing Then
    Tables
("订单").Current("客户ID") = tbl.Current("客户ID")
End
If
Forms(
"窗口1"
).Close()

 

 

以上这段代码是针对单个的表的,案例中为“订单”表,但我有可能会在设计系统的多个表中用这种方式录入,那该如何修改呢?例如我目前需要在tables("订单_table1")中用这种自定义录入界面

[此贴子已经被作者于2012-5-27 15:16:01编辑过]

--  作者:andu
--  发布时间:2012/5/28 2:02:00
--  

CurrentTable

 

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


--  作者:kensou11111
--  发布时间:2012/5/28 22:40:00
--  
以下是引用andu在2012-5-28 2:02:00的发言:

CurrentTable

 

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

 

不行的,因为表是窗口中的表,不能使用CurrentTable


--  作者:狐狸爸爸
--  发布时间:2012/5/29 9:06:00
--  

没办法,采用这个方案:

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