- 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=131907)
-- 发布时间：2019/3/8 19:58:00
-- 求助大大
我想点击1处的+按钮 ，把1处控件的值，实时插入在2处，如何实现
此主题相关图片如下：微信截图_20190308195505.png
，大大，谢谢
-- 发布时间：2019/3/8 21:00:00
--
麻烦各位大大了
-- 发布时间：2019/3/8 21:12:00
--
Textbox2 leave 事件
vars("SelectedText") = e.form.Controls("TextBox2").SelectionStart
按钮1 Click 事件
Dim t2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
t2.Text = t2.Text.Insert(vars("SelectedText"),t1.Text)
-- 发布时间：2019/3/8 21:37:00
--
谢谢大大 可以添加 但是有个问题 就是 插入后 光标回到了整个文本框的起始地方，能不能让光标保留在插入的地方不变
还有
如果是两个text空间的值呢
t2.Text = t2.Text.Insert(vars("SelectedText"),t1.Text & t3.Text)
可以这样吗 ？还是其他的？
[此贴子已经被作者于2019/3/8 21:40:43编辑过]
-- 发布时间：2019/3/8 22:01:00
--
t2.select
t2.Text = t2.Text.Insert(vars("SelectedText"),t1.Text & t3.Text)t2.SelectionStart = vars("SelectedText")
-- 发布时间：2019/3/8 22:30:00
--
Dim t2 As WinForm.TextBox = e.Form.Controls("pcissgc")
Dim qncj As WinForm.ComboBox = e.Form.Controls("qncj1")
Dim qnzj As WinForm.TextBox = e.Form.Controls("qnzj1")
Dim qncd As WinForm.TextBox = e.Form.Controls("qncd1")
Dim qnzxy As WinForm.TextBox = e.Form.Controls("qnzxy1")
Dim qnzdy As WinForm.TextBox = e.Form.Controls("qnzdy1")
t2.Select
t2.Text = t2.Text.Insert(vars("SelectedText"),qnzj.Text & qncd.Text & qnzxy.Text & qnzdy.Text)
t2.SelectionStart = vars("SelectedText")
提示错误：
错误所在事件：窗口,冠脉信息录入窗口,,Click
详细错误信息：
索引超出范围。必须为非负值并小于集合大小。
参数名: startIndex
-- 发布时间：2019/3/8 22:54:00
--
请上传实例测试