VB.NET中DataGridView相关

查询数据库数据显示到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.