DataGridView读取文本例子,动态datagridview

Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '单击事件 Dim ofd As New System.Windows.Forms.OpenFileDialog() ofd.Filter = "文本文件|*.txt;*.bat" Dim r As System.Windows.Forms.DialogResult = ofd.ShowDialog() If r = Windows.Forms.DialogResult.OK Then '读出对话框的文件地址 TextBox1.Text = ofd.FileName TextBox1.Focus() TextBox1.SelectAll() Dim sr As System.IO.StreamReader = New IO.StreamReader(ofd.FileName, System.Text.Encoding.GetEncoding("GB2312")) Do While sr.Peek() > 0 Dim temp As String = sr.ReadLine() Dim arry() As String = temp.Split(Chr(9)) If arry.Length <> DataGridView1.Columns.Count Then '如果表格字段数目与读入的文本条目不同,则重新够造datagridview1.columns Dim result As Windows.Forms.DialogResult = MessageBox.Show("表格字段数目不相同,不能导入! 是否重新显示字段", "ERROR", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = Windows.Forms.DialogResult.No Then Exit Sub '如果按NO则退出 '按YES则重定义DGV If DataGridView1.Rows.Count > 0 Then DataGridView1.Rows.Clear() '清除 Dim countC As Integer = DataGridView1.ColumnCount For co = 1 To countC DataGridView1.Columns.RemoveAt(0) Next If arry.Length = 4 Then AddColumns(True, New IO.StreamReader(ofd.FileName, System.Text.Encoding.GetEncoding("GB2312"))) '如果为自个字段又回到初始加载的个数 If arry.Length = 4 Then Exit Sub '跟着退出sub For i As Integer = 1 To arry.Length '到这里就是按arry.length 构建columns DataGridView1.Columns.Add("列" & i, "列" & i) DataGridView1.Columns("列" & i).ValueType = System.Type.GetType("System.String") DataGridView1.Columns("列" & i).Width = arry(0).Length * 12 + 20 DataGridView1.Columns("列" & i).DefaultCellStyle.BackColor = Color.Red Next End If DataGridView1.Rows.Add(arry) Loop End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '加载事件 Me.Text = "表格读取文本加打印例子" Call AddColumns(False, Nothing) End Sub Private Sub AddColumns(ByVal flag As Boolean, ByVal srr As Object) '自定一个过程 '定义四个字段 DataGridView1.Columns.Add("序号", "序号") DataGridView1.Columns("序号").Width = 120 DataGridView1.Columns("序号").ValueType = System.Type.GetType("System.String") DataGridView1.Columns.Add("编码", "编码") DataGridView1.Columns("编码").Width = 200 DataGridView1.Columns("编码").ValueType = System.Type.GetType("System.String") DataGridView1.Columns.Add("名称", "名称") DataGridView1.Columns("名称").Width = 150 DataGridView1.Columns("名称").ValueType = System.Type.GetType("System.String") DataGridView1.Columns.Add("规格", "规格") DataGridView1.Columns("规格").Width = 120 DataGridView1.Columns("规格").ValueType = System.Type.GetType("System.String") 'Dim ButtonC As New DataGridViewImageColumn 'ButtonC.HeaderText = "控件按钮" 'ButtonC.Image = New Bitmap("C:/Documents and Settings/Administrator/My Documents/My Pictures/pig.gif") 'DataGridView1.Columns.Add(ButtonC) ' DataGridView1.Rows.Add("1", "23001600190 ", "底壳真空镀件", "Ф1.2") If flag = True Then Dim sr As IO.StreamReader = srr Do While sr.Peek() > 0 Dim temp As String = sr.ReadLine() Dim arry() As String = temp.Split(Chr(9)) DataGridView1.Rows.Add(arry) Loop End If End Sub Private Sub DataGridView1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown '让datagridview中按方向健[↓]追加新行 If e.KeyCode = Keys.Down Then If DataGridView1.Rows.Count < 1 Then DataGridView1.Rows.Add() DataGridView1.Rows(0).Cells(0).Value = 1 Else If DataGridView1.CurrentRow.Index = DataGridView1.Rows.Count - 1 Then DataGridView1.Rows.Add() Dim i As Integer = DataGridView1.CurrentRow.Cells(0).Value DataGridView1.CurrentCell = DataGridView1.Rows(DataGridView1.Rows.Count - 1).Cells(0) DataGridView1.CurrentRow.Cells(0).Value = i + 1 End If End If End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ReForm.ShowDialog() '显示打印窗体 End Sub End Class

 

 

------------------------------------------------------------------------------------

要读取的文本例子

-----------------------------------------------------------------------------------

1 23001600190 底壳真空镀件 深枪色
2 35001600010 摄像头双面胶 
3 C3900160030 钢柱 Ф1.2
4 37000400020 PE袋 160*90mm
5 37000200030 吸塑盘1*15 385*310*15
1 21031020260 底壳装饰件喷油件 粉红色橡胶漆
2 23031020250 摄像头装饰件水镀件 银色
3 20031020500 闪光灯镜片注塑件 透明
4 C3903102020 后壳装饰件喇叭网镊片1 镊片
5 C3903102030 后壳装饰件喇叭网镊片2 镊片
6 35031020060 后壳装饰件喇叭泡棉1 PORON
7 35031020070 后壳装饰件喇叭泡棉2 PORON
8 35031020080 摄像头镜片背胶 3M9495
9 35031020130 后壳装饰件喇叭背胶1 3M9495
10 35031020140 后壳装饰件喇叭背胶2 3M9495
1 23001600190 底壳真空镀件 深枪色
2 35001600010 摄像头双面胶 
3 C3900160030 钢柱 Ф1.2
4 37000400020 PE袋 160*90mm
5 37000200030 吸塑盘1*15 385*310*15
6 37000100020 纸箱 410*335*270mm
1 23045010190 面壳真空镀件 深咖啡色
2 C3904501010 前壳镜片双面胶 
3 C3904501020 听筒防尘网 
4 C3904501030 前摄像头泡棉 
5 C3904501040 听筒双面胶 
6 36000100080 热熔螺母 M1.4*￠2.3*H1.4
7 21045020190 底壳喷油件 深咖啡色
8 21045020290 摄像头装饰喷涂件 深咖啡色
9 20045020400 闪光灯镜片塑胶件 透明PC
10 20045020500 充电导光柱塑胶件 透明PC
11 21045020390 自锁键推扭喷涂件 深咖啡色
12 20045020730 自锁键推扭支架塑胶件 黑色
13 C3904502050 摄像头镜片双面胶 
14 C3904502060 摄像头装饰五金双面胶 
15 C3904502070 后摄像头泡棉 
16 C3904502080 闪光灯镜片双面胶 
17 C3904502090 喇叭防尘网 
18 C3904502100 闪光灯镜片双面胶 
19 36000100030 铜螺母 M1.4*2.3*H2.2mm
20 20045030830 喇叭支架A塑胶件 黑色
21 20045030930 喇叭支架B塑胶件 黑色
22 37000100020 纸箱 410*335*270mm
23 37000400020 PE袋 160*90mm
24 37000200030 吸塑盘1*15 385*310*15
1 23050010170 底壳真空镀件 金色
2 20050010270 USB塞注塑件 金色
3 C3905001010 弹片 不锈钢
4 35050010010 摄像头泡棉 PORON
5 23050020270 底壳装饰件真空镀件 金色
6 C3905002030 LOGO镍片 金色
7 35050000110 喇叭网镍片 金色
8 35050020040 摄像头镜片背胶 3M9495
9 35050020050 LOGO背胶 3M9495
10 23050010190 底壳真空镀件 枪色
11 20050010230 USB塞注塑件 黑色
12 C3905001010 弹片 不锈钢
13 35050010010 摄像头泡棉 PORON
14 23050020290 底壳装饰件真空镀件 枪色
15 C3905002020 LOGO镍片 枪色
16 35050020030 喇叭网镍片 枪色
17 35050020040 摄像头镜片背胶 3M9495
18 35050020050 LOGO背胶 3M9495
19 35050000060 弹簧 不锈钢
20 35050000070 LCD泡棉 PORON
21 35050000080 主屏镜片背胶 3M9495
22 35050000090 听筒网镊片 枪色
23 35050000100 听筒网背胶 3M9495
24 36000200280 机械螺丝(黑色) CM1.4*3.5*∮2.5*0.5
25 36000200290 机械螺丝(黑色) CM1.4*4.0*∮2.5*0.5
26 37000100020 纸箱 410*335*270mm
27 37000200030 吸塑盘1*15 385*310*15
28 37000200020 吸塑盘1*20 385*320*18mm