一、 二、MSHflexgrid控制元件 MSHflexgrid控制元件的使用：https://blog.csdn.net/lxl51666/article/details/52663989 三、理解 這個介面就不畫思維導圖了，很好理解。 但是更新這個按鈕有點意思： 新增是新增使用者的，新增完使用者直接就新增到資料庫了。同樣刪除也是直接新增到資料庫，那麼更新的作用呢？ 更新有兩種： （一）是把客戶的新增和刪除的資訊更新到資料庫。 （二）是把客戶的新增和刪除的資訊從資料庫裡面反應到介面上。 很顯然第一種是錯誤的，應該是第二種把資料庫裡面新的資訊更新到介面。 更新的程式碼

Private Sub cmdUpdate_Click() '更新
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
'        txtSQL = "select * from User_Info"
'        Set mrc = ExecuteSQL(txtSQL, MsgText)
  txtSQL = "select * from User_Info where level='" & Trim(ComboUserBank.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
        If mrc.EOF Then
            MsgBox "沒有內容", vbOKOnly, "提示"
            
        Else
            With MSHFlexGrid1
            .CellAlignment = 4
            .Rows = 1
            .TextMatrix(0, 0) = "使用者名稱"
            .TextMatrix(0, 1) = "姓名"
            .TextMatrix(0, 2) = "開戶人"
            '顯示資料
    
    Do While Not mrc.EOF
        With MSHFlexGrid1
            
        .Rows = .Rows + 1
        .CellAlignment = 4
        .ColWidth(1) = 1000
        .TextMatrix(.Rows - 1, 0) = mrc.Fields(0) 'rows+1是橫座標，與上面的.Rows=1代表的有所不同
        .TextMatrix(.Rows - 1, 1) = mrc.Fields(3) '.rows=1表示控制元件載入時總行數為1行（控制元件行數最小為1）表示座標時，我們知道是從（0,0）開始的，因此rows-1只是代表座標從頭開始，與控制元件載入時設定的行數無關
        .TextMatrix(.Rows - 1, 2) = mrc.Fields(4)
'        .Text(.row + 1, 0) = mrc.Fields(0)
'        .Text(.row + 1, 1) = mrc.Fields(3)
'        .Text(.row + 1, 2) = mrc.Fields(4)
''        mrc.Fields(0) = .TextMatrix(.row + 1, 0)
'        mrc.Fields(3) = .TextMatrix(.row - 1, 1)
'        mrc.Fields(4) = .TextMatrix(.row - 1, 2)
        mrc.MoveNext
     
        End With
        Loop
        End With
        End If
End Sub