有段代码执行起来效率很低 电脑要傻好几秒 求更好的算法
Private Sub frmSearch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '初始化窗体尺寸 initWindow(Me) '绑定数据 Dim DV As DataView = DS.Tables("库存").DefaultView dgvSearch.DataSource = DV For i = 0 To 2 dgvSearch.Columns(i).Visible = False Next For i = 6 To dgvSearch.ColumnCount - 1 dgvSearch.Columns(i).Visible = False Next End Sub