vb.netgrid的简单介绍

VB.net中Grid数据显示在Viewer中。

循环读取Gird里面的每行数据，增加数据到Viewer里面；分步百度搜索可得结果；

创新互联公司专注于蒸湘企业网站建设,成都响应式网站建设,电子商务商城网站建设。蒸湘网站建设公司,为蒸湘等地区提供建站服务。全流程按需开发，专业设计，全程项目跟踪，创新互联公司专业和态度为您提供的服务

vb.netgrid自动生成excel不保存

软件bug，软件缓存过多。

1、vb.netgrid软件运行服务器出现bug导致自动生成excel不保存，退出重新进入，等待官方修复。

2、vb.netgrid软件缓存过多导致自动生成excel不保存，清理软件空间，重启软件。

有无针对VB.net的PropertyGrid控件详细用法？

查MSDN啊，什么语言都有，安装VB.net时就要一起安装帮助文档，以后找起来方便很多。暂时可以去网络版的msdn，那些例子的代码可以切换各种语言，还附有一个完整例子

;cs-lang=vb#code-snippet-1

求VB.net datagrid 控件的使用方法（入门级）

Dim tab1 As String

Dim DS As New DataSet

Dim SqlStr As String

Dim DTS_A As New DataGridTableStyle

Dim Col_A1, Col_A2, Col_A3 As New DataGridTextBoxColumn

Dim Col_bo As New DataGridBoolColumn

'DS.Tables("tab1").Columns.Add("check", System.Type.GetType("System.Boolean"))

'DS.Tables("tab1").Columns("check").DefaultValue = False

Dim Col_A() As DataGridColumnStyle = {Col_bo, Col_A1, Col_A2, Col_A3}

'主窗口

Private Sub fICitem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ProgressBar1.Hide()

grdStyles("tab1")

SQLConn(conn)

Dim i As Integer

'Dim arr As New ArrayList

SqlStr = "SELECT ID, diqu, dname FROM a_diqu Order by ID"

If Not SQLFill(conn, DA, DS, SqlStr, "diqu") Then

MsgBox("服务器连接失败")

Else

Dim dr As DataRow

For Each dr In DS.Tables("diqu").Rows

'arr.Add(dr("diqu") "." dr("dname"))

cmbDiqu.Items.Add(dr("diqu") "." dr("dname"))

Next

End If

'cmbDiqu.DataSource = arr

cmbDiqu.SelectedIndex = -1

cmbDiqu.Text = ""

End Sub

'DataGrid格式

Private Sub grdStyles(ByVal tab As String)

Dim ii1 As Integer

Dim DTS_A1() As String = {"check", "fshortnumber", "fnumber", "fplanprice"}

Dim DTS_A2() As String = {"检查框", "货号", "上市月份", "单价"}

Dim DTS_A3() As Integer = {50, 120, 120, 120} '长度

Dim DTS_A4() As Integer = {2, 0, 2, 1} '对齐方式

DTS_A.MappingName = tab

DTS_A.GridColumnStyles.Clear()

DTS_A.AllowSorting = True

DTS_A.ReadOnly = True

DTS_A.BackColor = Color.DarkGray

DTS_A.AlternatingBackColor = Color.LightGray

For ii1 = 0 To DTS_A1.Length - 1

Col_A(ii1).MappingName = DTS_A1(ii1)

Col_A(ii1).HeaderText = DTS_A2(ii1)

Col_A(ii1).Width = DTS_A3(ii1)

Col_A(ii1).NullText = ""

Col_A(ii1).Alignment = DTS_A4(ii1)

Next

DTS_A.GridColumnStyles.AddRange(Col_A)

grdItem.TableStyles.Add(DTS_A)

grdItem.ReadOnly = True

End Sub

Private Sub fICitem_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed

SQLClose(conn)

End Sub

'显示表单

Private Sub Show1()

grdStyles("tab1")

txtNum.Text = Trim(txtNum.Text)

grdItem.DataSource = Nothing

SQLStr = "select * from t_icitem_new"

SQLStr = " where fshortnumber like '" txtNum.Text "%'"

SQLStr = " order by fshortnumber"

SQLFill(conn, DA, DS, SQLStr, tab1)

grdItem.CaptionText = "货号资料"

grdItem.DataSource = DS.Tables(tab1)

ShowRow()

End Sub

'数据同步显示

Private Sub ShowRow()

Dim dr As DataRow

If DS.Tables(tab1).Rows.Count 0 Then

If grdItem.CurrentRowIndex DS.Tables(tab1).Rows.Count Then

grdItem.CaptionText = grdItem.CurrentRowIndex + 1 "/" DS.Tables(tab1).Rows.Count

dr = DS.Tables(tab1).Rows(grdItem.CurrentRowIndex)

txtNum.Text = dr.Item("fshortnumber")

txtPrice.Text = dr.Item("fplanprice")

cmbMonth.Text = dr.Item("fnumber")

Else

txtNum.Text = ""

txtPrice.Text = ""

cmbMonth.Text = ""

End If

Else

txtNum.Text = ""

txtPrice.Text = ""

cmbMonth.Text = ""

End If

End Sub

Private Sub grdItem_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdItem.CurrentCellChanged

ShowRow()

End Sub

'鼠标选定行

Private Sub grdItem_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdItem.CurrentCellChanged

ShowRow()

End Sub

Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _

Handles btnSelect.Click, btnUpdate.Click, btnInsert.Click, btnDelete.Click

Select Case sender.name

Case "btnSelect" '查询

Show1()

Case "btnUpdate" '修改

SUpdate()

Case "btnInsert" '新增

SInsert()

Case "btnDelete" '删除

SDelete()

End Select

End Sub

'修改

Private Sub SUpdate()

txtNum.Text = Trim(txtNum.Text)

txtPrice.Text = Trim(txtPrice.Text)

If MsgBox("确定更新？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

SQLStr = "UPDATE t_icitem_new SET "

SQLStr = "fnumber='" cmbMonth.SelectedItem "', "

SQLStr = "fplanprice='" txtPrice.Text "' "

SQLStr = "WHERE fshortnumber='" txtNum.Text "'"

If Not SQLFill2(conn, SQLStr) Then

MsgBox("抱歉，更新失败:(")

End If

Show1()

End If

End Sub

'新增

Private Sub SInsert()

txtNum.Text = Trim(txtNum.Text)

txtPrice.Text = Trim(txtPrice.Text)

If MsgBox("确定新增？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

SQLStr = "SELECT fshortnumber "

SQLStr = "FROM t_icitem_new "

SQLStr = "WHERE fshortnumber = '" txtNum.Text "' "

SQLFill(conn, DA, DS, SQLStr, "Tmp")

If DS.Tables("Tmp").Rows.Count = 0 Then '如果没有资料则新增

SQLStr = "INSERT INTO t_icitem_new (fshortnumber,fnumber,fplanprice) VALUES("

SQLStr = "'" txtNum.Text "', "

SQLStr = "'" cmbMonth.SelectedItem "', "

SQLStr = "'" txtPrice.Text "')"

If Not SQLFill2(conn, SQLStr) Then

MsgBox("抱歉，新增失败:(")

End If

Show1()

Else

MsgBox("资料已存在")

End If

End If

End Sub

'删除

Private Sub SDelete()

txtNum.Text = Trim(txtNum.Text)

txtPrice.Text = Trim(txtPrice.Text)

If MsgBox("确定删除" txtNum.Text "？", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then

SQLStr = "DELETE FROM t_icitem_new "

SQLStr = "WHERE fshortnumber='" txtNum.Text "'"

If Not SQLFill2(conn, SQLStr) Then

MsgBox("抱歉，删除失败:(")

End If

Show1()

End If

'键盘顺序

Private Sub txt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _

Handles txtFshop.KeyDown, txtItem.KeyDown

Select Case e.KeyCode

Case Keys.Return

SendKeys.Send("{TAB}")

Case Keys.Right

SendKeys.Send("{TAB}")

Case Keys.Left

SendKeys.Send("+{TAB}")

Case Keys.Down

SendKeys.Send("{TAB 10}")

Case Keys.Up

SendKeys.Send("+{TAB 10}")

End Select

End Sub