- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 焦点文本框输入问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189748)
-- 发布时间：2023/12/22 15:48:00
-- 焦点文本框输入问题
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
If t1.Focused Then
t1.Text = t1.Text.Insert(t1.SelectionStart, e.Row(e.Col.Name))
t1.SelectionStart = t1.Text.Length
ElseIf t2.Focused Then
t2.Text = t2.Text.Insert(t2.SelectionStart, e.Row(e.Col.Name))
t2.SelectionStart = t2.Text.Length
End If
点击单元格没有反应，您帮着看看，谢谢老师！
-- 发布时间：2023/12/22 15:55:00
--
窗口afterload事件
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim d = txt.BaseControl
d.HideSelection = False
txt = e.Form.Controls("TextBox2")
d = txt.BaseControl
d.HideSelection = False
-- 发布时间：2023/12/22 16:01:00
--
老师，以上代码
窗口afterload事件中之前已添加好了，现在又增加了一个text，之前是单独的文本框，想着任一个text获得焦点时，Table单元格点击就能在焦点单元格中录入，但是点击后什么都没有录入 |
-- 发布时间：2023/12/22 16:08:00
--
请上传实例测试
-- 发布时间：2023/12/22 16:34:00
--
请老师看看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目15.zip |
-- 发布时间：2023/12/22 16:47:00
--
如果点击的是表格，只有表格有焦点，2个文本框都不可能有焦点的。
到文本框的enter事件使用全局变量记录一下最后点击的是那个控件，那么这个控件就是要设置的
-- 发布时间：2023/12/22 16:56:00
--
明白了，谢谢老师！