vbnet中对datagrid行列的添加与删除

《vbnet中对datagrid行列的添加与删除》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、VB.NET实现DataGrid删除行、列　1.程序功能：当点击删除行按钮时，删除当前选定的行，当点击删除列按钮时，删除输入的列。　　2.程序设计：主要利用删除数据集中的相关行或列来实现程序功能　　3.窗体设计　　打开MiscrosoftVisualStudio.NET,选择新建项目，在项目类型中选择VisualBasic项目，　　在模板中选择Windows应用程序，在名称中输入DGStyle，选择保存位置。再点击确定，打开设计窗口，　　向窗体中添加一个DataGrid控件和两个Label控件。控件属性Label1.Text="删除

2、行";　　Label2.Text="删除列";DataGrid1.CaptionText="DataGrid删除行.列"　　4.代码设计：ImportsSystem.Data.SqlClientPublicClassForm1　　InheritsSystem.Windows.Forms.Form　　dimtbasDataTable'窗体代码略PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load　　　　Di

3、msconAsNewSqlConnection("server=localhost;database=northwind;integratedsecurity=true")　　　　'定义一个数据适配器sda获取雇员表中的雇员IDlastname　　　　DimsdaAsNewSqlDataAdapter("selectemployeeid,lastnamefromemployeesorderbyemployeeid",scon)　　　　DimdsAsNewDataSet　　　　Try　　　　　　sda.Fill(ds,"employe

4、es")　　　　CatchexAsException　　　　EndTry　　　　tb=ds.Tables(0)　　　　DataGrid1.DataSource=tb　　EndSub　　'删除行按钮　　PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Click　　　　DimnAsInteger　　　　'获取当前选定的行号　　　　n=DataGrid1.CurrentRowIndex　　　　　　　'从数据

5、集集合中删除行　　　　tb.Rows.RemoveAt(n)　　　　'刷新Datagrid1显示删除后的数据　　　　DataGrid1.Refresh()　　EndSub　　'删除列按钮　　PrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.Click　　　　DimcolumnNameAsString　　　　'调用InPutbox函数输入字段名　　　　columnName=InputBox("请输入要删除

6、的字段名","删除列")　　　　'判断字段是否存在　　　　Iftb.Columns.Contains(columnName)=TrueThen　　　　　　tb.Columns.Remove(columnName)　　　　　　DataGrid1.DataSource=tb　　　　Else　　　　　　MsgBox("字段名不对，请重新输入")　　　　　　ExitSub　　　　EndIf　　EndSubEndClass