Database Datagridview vb无法工作

我正在做一个A级的计算，我在编程方面很糟糕，所以我在这里，我按照一个教程得到了一个datagridview，在我链接到项目的数据库中加载了一个表，但调试中什么也没有出现，仍然是灰色的表

这是我的密码：

Imports System.Data.OleDb

Public Class Cards
 Dim con As New OleDbConnection

 Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= |DataDirectory|\Cards.accdb"
    con.Open()
    datagridShow()
 End Sub
 Private Sub datagridShow()
    Dim ds As New DataSet
    Dim dt As New DataTable
    ds.Tables.Add(dt)
    Dim da As New OleDbDataAdapter
    da = New OleDbDataAdapter("SELECT * FROM cards", con)
    da.Fill(dt)
    DataGridView1.DataSource = dt.DefaultView
    con.Close()
 End Sub
End Class

---

'如果网格中没有数据，则没有要单击的单元格，因此您的代码不会触发DataGridView1.CellContentClick，因此您永远不会点击DataGridView1\u CellContentClick方法

“我刚刚运行了你的代码，它工作了。我确实输入了连接字符串，所以请检查您的连接字符串

'我不知道您为什么要在单元格联系人上加载网格

'尝试此操作并调用pageload上的loadData或按钮单击事件，这应该对您有效

Private Sub loadData()
    con.ConnectionString = "Your Connection String"
    con.Open()

    datagridShow()
End Sub

Private Sub datagridShow()
    Dim ds As New DataSet
    Dim dt As New DataTable
    ds.Tables.Add(dt)
    Dim da As New OleDbDataAdapter

    da = New OleDbDataAdapter("SELECT * FROM cards", con)
    da.Fill(dt)

    DataGridView1.DataSource = dt.DefaultView

    con.Close()

End Sub

---

我的计算能力达到了A级，但我的编程能力很差——也许我会改学地理！这是一个奇怪的事情，你正在尝试做：点击一个网格单元格的文本应该改变该网格的数据源。你试过一个断点吗？您的代码可能未执行。您的代码在DataGridView_CellContentClick事件上执行，该事件在您单击单元格文本时触发。DataGridView在开始时是空的，这意味着没有要单击的单元格，这意味着事件无法触发，这意味着代码永远不会执行。在表单上放置一个按钮，并将代码移动到“按钮点击”事件。我也在做计算a级，但通常在我陷入困境的时候，我通常不太会去找我的导师：你也应该试着问你的导师。如果这是DataGridView而不是DataGrid，那么就没有数据绑定方法是的，你是对的，我删除了我在想gridview的内容抱歉，我更正了我的回答，请重新考虑你如何提供关于堆栈溢出的答案；你今天提交的两个答案质量很低。