本帖最后由 kutu 于 2018-8-2 21:05 编辑
使用 C1FlexGrid1.Select(lngRow, 0, lngRow, C1FlexGrid1.Cols.Count - 1, False)来使滚动条不变化,第一次时没有问题,当第二次调用代码时,就有问题了,滚动条进行了移动
点击button,第一次滚动条没有动,再一次点击的button时,滚动条就动了
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim sql As String = "select * from Address where ID < 50 "
Dim StrConnec As String = String.Empty
StrConnec = "data source=xxx;password=xxx;user id=xxx;Initial Catalog=xxx;Connection Timeout=15"
Dim ObjConn As SqlClient.SqlConnection = New SqlClient.SqlConnection
ObjConn.ConnectionString = StrConnec
Dim adapter As New SqlClient.SqlDataAdapter
adapter.SelectCommand = New SqlClient.SqlCommand(sql, ObjConn)
Dim builder As SqlClient.SqlCommandBuilder = New SqlClient.SqlCommandBuilder(adapter)
Dim customers As DataTable = New DataTable
adapter.Fill(customers)
C1FlexGrid1.DataSource = customers
For lngRow = C1FlexGrid1.Rows.Fixed To C1FlexGrid1.Rows.Count - 1
C1FlexGrid1.Select(lngRow, 0, lngRow, C1FlexGrid1.Cols.Count - 1, False)
Next lngRow
End Sub
|