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
点击单元格没有反应,您帮着看看,谢谢老师!