datagridview后台添加列

来源：互联网发布：数据采集费发票编辑：程序博客网时间：2024/05/02 04:17

        moneydata.Columns.Clear()
        moneydata.Rows.Clear()
        With moneydata
            .Columns.Add("A", "A")
            .Columns.Add("B", "B")
            .Columns.Add("C", "C")
            .Columns.Add("D", "D")
        End With
        With moneydata
            .Columns(0).Visible = False
            .Columns(1).Width = 60
            .Columns(2).Width = 60
            .Columns(3).Width = 60
            .Columns(4).Width = 80
            .Columns(5).Width = 80
            .Columns(6).Width = 80
            .Columns(7).Width = 80
            .Columns(8).Width = 80
            .Columns(9).Visible = False
            .Columns(10).Width = 80
            .Columns(11).Width = 80
            .Columns(12).Width = 80
            '.Columns(12).Visible = False
            '.Columns(13).Visible = False
            .Columns(15).Width = 60
            .Columns(16).Width = 80
            .Columns(17).Visible = False
            .Columns(18).Width = 80
            .Columns(19).Width = 80
            .Columns(20).Width = 80
        End With