实例125表的创建与删除

1.设计一个窗体，一个菜单，一个DataGridView

2.写代码

Public Class Form1
   
    Private myTable As DataTable
    Private strTable As String

    Private Sub mnItemCreateTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemCreateTable.Click
        If Not myTable Is Nothing Then
            myTable.Dispose()
            strTable = ""
        End If
        strTable = InputBox("请输入数据表的名称和列名（以逗号分隔）", "创建数据表", "数据表1")
        '人员信息表,姓名,身份证号,性别,生日,年龄
        Dim Fields() As String
        Fields = Split(strTable, ",")
        myTable = New DataTable(Fields(0).ToString)
        Me.Text = "当前数据表--" & myTable.TableName
        Dim iCount As Integer
        Dim pColumn As DataColumn
        For iCount = 1 To Fields.Length - 1
            pColumn = New DataColumn(Fields(iCount))
            myTable.Columns.Add(pColumn)
        Next

        DataGridView1.DataSource = myTable
    End Sub

    Private Sub mnItemRenameTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemRenameTable.Click
        If myTable Is Nothing Then
            MsgBox("请先创建新表")
            Exit Sub
        End If
        Dim NameString As String = ""
        NameString = InputBox("请输入新的名称", "更换名称", NameString)
        myTable.TableName = NameString
        Me.Text = "当前数据表--" & myTable.TableName
    End Sub

    Private Sub mnItemDeleteTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemDeleteTable.Click
        If myTable Is Nothing Then
            MsgBox("还未创建新表")
            Exit Sub
        End If
        myTable.Clear()
        myTable.Dispose()
        myTable = Nothing
        DataGridView1.DataSource = myTable
        Me.Text = "未创建"
    End Sub

    Private Sub mnItemExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnItemExit.Click
        Me.Close()
    End Sub
End Class