以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助!窗口问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105922)

--  作者:kmbn
--  发布时间:2017/8/29 11:19:00
--  求助!窗口问题
请教老师:
如何实现窗口1中的文本框1内容回车后,在窗口2的文本框2中显示
求代码

在帮助中木有找到内容图片点击可在新窗口打开查看图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/8/29 11:28:00
--  

keydown事件

 

If e.keycode = keys.Enter Then

    Forms("窗口2").Controls("TextBox2").Text = e.sender.text

End If


--  作者:kmbn
--  发布时间:2017/8/29 12:22:00
--  
再请教老师一个“焦点”问题:
窗口如果为独立的代码能生效,但是窗口为主窗体后代码无效,请老师指点,代码如下:

\'文本框获取焦点
Dim TextBox2 As WinForm.TextBox = e.Form.Controls("TextBox2")
TextBox2.Select()
TextBox2.SelectionStart = TextBox2.Text.Length

--  作者:有点甜
--  发布时间:2017/8/29 12:29:00
--  
  回复3楼,你代码写在什么地方,怎么样调用的?做个例子看看。
--  作者:kmbn
--  发布时间:2017/8/29 12:35:00
--  
窗口事件  AfterLoad  里
--  作者:有点甜
--  发布时间:2017/8/29 12:41:00
--  
以下是引用kmbn在2017/8/29 12:35:00的发言:
窗口事件  AfterLoad  里

 

timertick事件

 

Dim TextBox2 As WinForm.TextBox = e.Form.Controls("TextBox2")
TextBox2.Select()
TextBox2.SelectionStart = TextBox2.Text.Length

If textbox2.Focused Then
    e.Form.TimerEnabled = False
End If

 

 

http://www.foxtable.com/webhelp/scr/1301.htm

 


--  作者:kmbn
--  发布时间:2017/8/29 14:32:00
--  
老师:
  InsertNew()
这个参数是向前加一行,如果要是当前行向后加一行,要用到那个参数呢!求教了图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2017/8/29 15:18:00
--  
Dim cr As Row = Tables("表A").Current
Dim nr As Row = cr.Table.AddNew
nr.Move(cr.Index+1)