对,Tabcontrol1的四个页面,各放了一个RecordGrid 。
可能是绑定表的afterselchang中这段事件代码,没包括RecordGrid2/3/4的原因:
If e.OldRange.ColSel <> e.NewRange.ColSel AndAlso e.NewRange.RowSel >= 0
If Forms("记录窗口录入").Opened
Dim rg As WinForm.RecordGrid = Forms("记录窗口录入").Controls("RecordGrid1")
rg.Select()
Dim rgb = rg.BaseControl
Dim cname As String = e.Table.Cols(e.NewRange.ColSel).Name
For i As Integer = 0 To rgb.Rows.count-1
If rgb(i, 0) = cname Then
rgb.Select(i, 1)
End If
Next
Next
End If
以前用过的代码,注释掉以后就好了,谢谢版主!
[此贴子已经被作者于2017/4/28 20:19:24编辑过]