'資料庫讀進來後,在DataGridView1做排序
DataGridView1.Sort(DataGridView1.Columns(0),System.ComponentModel.ListSortDirection.Ascending)

'之後for迴圈用這個修正

  list1.Clear()  '清掉上次資料

  For Me.kgg = 0 To DataGridView1.Rows.Count - 1

                list1.Add(Me.kgg, DataGridView1.Rows(Me.kgg).Cells(5).Value)
   Next

清除LIST1

Dim list1 = New PointPairList() '定義

list1.clear()



Dim myCurve5 As LineItem = myPane5.AddCurve("GapPV1", list5, Color.Blue, SymbolType.None) '不要有點

String strSQL = "INSERT INTO sec_user (A,password,user_name) VALUES('" + A4.Text + "','" + password.Text + "','" + user_name.Text + "')"; 

    Private Sub DataGridView1_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseClick
        Me.Text = click_count
        click_count = click_count + 1

        Try
            If click_count = 1 Then
                ' dd1.Text = DataGridView1.CurrentCell.Value.ToString
                dd1.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
            End If

            If click_count = 2 Then
                'dd2.Text = DataGridView1.CurrentCell.Value.ToString
                dd2.Text = DataGridView1.CurrentRow.Cells(1).Value.ToString
                click_count = 0
            End If

        Catch ex As Exception
            MessageBox.Show("GGGGGGGGGGG")
        End Try

    End Sub

DataGridView1.FirstDisplayedScrollingRowIndex = DataGridView1.Rows.Count - 1

LCase("字")