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
点击单元格没有反应,您帮着看看,谢谢老师!
窗口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
如果点击的是表格,只有表格有焦点,2个文本框都不可能有焦点的。
到文本框的enter事件使用全局变量记录一下最后点击的是那个控件,那么这个控件就是要设置的