VB.NET中DataGridView相关

VB.NET 专栏收录该内容
1 篇文章 0 订阅

查询数据库数据显示到DataGridView

// 弹出提示框
Dim CheckU As DataTable
SQL = "select b.UserNo,b.UserName,a.deptName as deptName,a.deptId as deptId from SYS_Dept a inner join SYS_UserInfo b on a.deptid=b.deptid where  b.userno ='" & TextBox1.Text & "'"
CheckU = New DataTable
CheckU = ConnectDB.dataReadSelect(SQL)
If (CheckU.Rows.Count > 0) Then  ' 如果有数据 
    TextBox2.Text = CheckU.Rows(0)("UserNo").ToString
    TextBox3.Text = CheckU.Rows(0)("UserName").ToString
    TextBox4.Text = CheckU.Rows(0)("deptName").ToString
    TextBox5.Text = CheckU.Rows(0)("deptId").ToString
End If

excel文件数据导入到DataGridView

// EXCEL导入按钮
Dim excel As Microsoft.Office.Interop.Excel.Application = New Microsoft.Office.Interop.Excel.Application()
Dim xlBook As Microsoft.Office.Interop.Excel.Workbook
Dim xlSheet As Microsoft.Office.Interop.Excel.Worksheet
Dim fileDialog As OpenFileDialog = New OpenFileDialog()
Dim FileName As String
Dim row_count As Integer 'excel文件中数据共多少行

'fileDialog.Filter = "Microsoft Excel files (*.xlsm)|*.xlsm"
fileDialog.Filter = "所有文件(* .*)|*.*"
If fileDialog.ShowDialog = Windows.Forms.DialogResult.Cancel Then 
	Exit Sub
If fileDialog.FileName = Nothing Then
    MsgBox("请选择要导入的excel文件", , "提示")
End If

FileName = fileDialog.FileName
xlBook = excel.Application.Workbooks.Open(FileName)
xlSheet = xlBook.Application.Worksheets(2)
row_count = xlSheet.UsedRange.Rows(xlSheet.UsedRange.Rows.Count).Row
If (row_count = 2) Then
	MessageBox.Show("excel中没有数据") '当前Excel中数据从第二行开始
    Exit Sub
End If

Dim col As Integer = 0
Dim i As Integer = 3

Me.DataGridView1.Rows.Clear()'清除DataGridView表格数据

Do While i <= row_count
	DataGridView1.Rows.Add()
	DataGridView1.Rows(col).Cells(1).Value = xlSheet.Cells(i, 1).value
	DataGridView1.Rows(col).Cells(2).Value = xlSheet.Cells(i, 2).value
	DataGridView1.Rows(col).Cells(3).Value = xlSheet.Cells(i, 3).value
	DataGridView1.Rows(col).Cells(4).Value = xlSheet.Cells(i, 4).value
	DataGridView1.Rows(col).Cells(5).Value = xlSheet.Cells(i, 5).value
	i = i + 1
	col = col + 1
Loop
excel.ActiveWorkbook.Close(False)
xlSheet = Nothing
xlBook = Nothing
excel = Nothing

If DataGridView1.Rows.Count >= 1 Then
	MessageBox.Show("导入成功")
Else
	MessageBox.Show("导入失败")
End If

DataGridView全选CheckBox

// 添加一个CheckBox
// CheckBox的点击事件
// DataGridView第一列的ColumnType设置为DataGridViewCheckBoxColumn
Dim i As Integer
Dim count As Integer
count = DataGridView1.Rows.Count
If (CheckBox1.Checked) Then '全选
    For i = 0 To count - 1
        DataGridView1.Rows(i).Cells(0).Value = True
    Next
End If
If (CheckBox1.Checked = False) Then '取消全选
    For i = 0 To count - 1
        DataGridView1.Rows(i).Cells(0).Value = False
    Next
End If

DataGridView中数据导出到Excel

// DataGridView中右键导出按钮
// 1.添加ContextMenuStrip控件
// 2.控件上添加导出按钮
// 3.DataGridView的ContextMenuStrip属性中添加此控件
// ContextMenuStrip控件点击事件:
Dim Xls As New Microsoft.Office.Interop.Excel.Application() '定义excel应用程序
Dim Xlsbook As Microsoft.Office.Interop.Excel.Workbook '定义工作簿
Dim Xlssheet As Microsoft.Office.Interop.Excel.Worksheet '定义工作表

'Xls.Visible = True '显示excel程序
'Xlsbook = Xls.Application.Workbooks.Add '添加新工作簿 或exbook=exapp.workbooks.open("路径\文件名")'打开已存在工作薄
Xlssheet = Xlsbook.Sheets.Add(After:=Xlsbook.Sheets(Xlsbook.Sheets.Count)) '添加到最后
Xlssheet = Xlsbook.Sheets(1) '第1个工作表的控制句柄

Dim Cols As Integer
For Cols = 1 To DataGridView1.Columns.Count
	Xlssheet.Cells(1, Cols) = DataGridView1.Columns(Cols - 1).HeaderText
Next
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
	Dim j As Integer
    For j = 0 To DataGridView1.ColumnCount - 1
    	If Me.DataGridView1(j, i).Value Is System.DBNull.Value Then
            Xlssheet.Cells(i + 2, j + 1) = ""
        Else
        	Xlssheet.Cells(i + 2, j + 1) = DataGridView1(j, i).Value.ToString
        End If
    Next j
Next i
Dim Sdlg As SaveFileDialog = New SaveFileDialog '定义一个保存对话框
Sdlg.FileName = "导出文件" & Format(DateTime.Now, "yyyyMMdd") '保存对话框的默认文件名
Sdlg.Filter = "Excel files (*.xlsx)|*.xlsx|Excel files (*.xls)|*.xls" '过滤器设置
Sdlg.RestoreDirectory = True '保存对话框是否记忆上次打开的目录
Sdlg.CreatePrompt = False '不提示是否创建文件
Sdlg.Title = "导出Excel文件到"
Sdlg.AddExtension = True
Sdlg.OverwritePrompt = False
Sdlg.FilterIndex = 1 '设置默认文件类型显示顺序(可以不设置)
If Sdlg.ShowDialog = Windows.Forms.DialogResult.OK Then '如果保存对话框的确认按钮被触发
	'Xlsbook.DisplayAlerts = False
	'需要Imports System.IO
    If (File.Exists(Sdlg.FileName)) Then
    	If (MessageBox.Show("文件已存在,要替换它吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes) Then
            File.Delete(Sdlg.FileName)
        Else
        	Exit Sub
        End If
    End If
    Xlsbook.SaveAs(Sdlg.FileName) '保存文件
End If
Xlssheet = Nothing '释放资源
Xlsbook.Close() '关闭工作簿
Xlsbook = Nothing '释放资源
Xls.Quit() '退出excel应用程序
Xls = Nothing
MessageBox.Show("导出成功")

在这里插入图片描述

  • 1
    点赞
  • 0
    评论
  • 6
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

vb.net操作DataGridView控件的用法的集合,包括: 1. DataGridView当前的单元格属性取得、变更 2. DataGridView编辑属性 3. DataGridView最下面一列新追加行非表示 4. DataGridView判断当前选行是否为新追加的行 5. DataGridView删除行可否设定 6. DataGridView行列不表示和删除 DataGridView控件用法合集(二) 7. DataGridView行列宽度高度设置为不能编辑 8. DataGridView行高列幅自动调整 9. DataGridView指定行列冻结 10. DataGridView列顺序变更可否设定 11. DataGridView行复数选择 12. DataGridView选择的行、列、单元格取得 DataGridView控件用法合集(三) 13. DataGridView指定单元格是否表示 14. DataGridView表头部单元格取得 15. DataGridView表头部单元格文字列设定 16. DataGridView选择的部分拷贝至剪贴板 17.DataGridView粘贴 18. DataGridView单元格上ToolTip表示设定(鼠标移动到相应单元格上时,弹出说明信息) DataGridView控件用法合集(四) 19. DataGridView的ContextMenuStrip属性 20. DataGridView指定滚动框位置 21. DataGridView手动追加列 22. DataGridView全体分界线样式设置 23. DataGridView根据单元格属性更改显示内容 24. DataGridView新追加行的行高样式设置る 25. DataGridView新追加行单元格默认值设置 DataGridView输入错误数据的处理(五) 26. DataGridView单元格数据错误标签表示 27. DataGridView单元格内输入值正确性判断 28. DataGridView单元格输入错误值事件的捕获 DataGridView控件用法合集(六) 29. DataGridView行排序(点击列表头自动排序的设置) 30. DataGridView自动行排序(新追加值也会自动排序) 31. DataGridView自动行排序禁止情况下的排序 32. DataGridView指定列指定排序 DataGridView控件用法合集(七) 33. DataGridView单元格样式设置 34. DataGridView文字表示位置的设定 35. DataGridView单元格内文字列换行 36. DataGridView单元格DBNull值表示的设定 37. DataGridView单元格样式格式化 38. DataGridView指定单元格颜色设定 39. DataGridView单元格文字字体设置 40. DataGridView根据单元格值设定单元格样式 DataGridView控件用法合集(八) 41. DataGridView设置单元格背景颜色 42. DataGridView行样式描画 43. DataGridView显示行号 44. DataGridView焦点所在单元格焦点框不显示的设定 DataGridView控件用法合集(九) 45. DataGridView显示选择框CheckBox 46. DataGridView显示下拉框ComboBox 47. DataGridView单击打开下拉框 48. DataGridView显示按钮 49. DataGridView显示链接 50. DataGridView显示图像 DataGridView控件用法合集(十) 51. DataGridView编辑单元格控件取得 52. DataGridView输入自动完成 53. DataGridView单元格编辑时键盘KEY事件取得 54. DataGridView下拉框(ComboBox)单元格编辑时事件取得 55. DataGridView下拉框(ComboBox)单元格允许文字输入设定 DataGridView控件用法合集(十一) 56. DataGridView根据值不同在另一列显示相应图片 57. DataGridView显示进度条(ProgressBar) 58. DataGridView添加MaskedTextBox DataGridView控件用法合集(十二) 59. DataGridViewEnter键按下焦点移至旁边的单
©️2021 CSDN 皮肤主题: 技术黑板 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值