重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
1拖放控件
创新互联专业为企业提供舒城网站建设、舒城做网站、舒城网站设计、舒城网站制作等企业网站建设、网页设计与制作、舒城企业网站模板建站服务,十余年舒城做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
2代码添加
如
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.ResizeRedraw = True
Dim ff As New DataGridView
ff.ReadOnly = False‘在这里设置是否可编辑单元格
ff.Parent = Me
ff.AllowUserToAddRows = True'这里设置是否显示添加新行
ff.Columns.Add("aa", "啊啊")
ff.Columns.Add("a1", "啊")
End Sub
dim
ds
as
new
dataset
把筛选出来的数据绑定到dataset上,然后直接绑定数据源就行
DataGridView.DataSource
=
ds.tables("Imtable")
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
使用的多的是微软的FlexGrid控件。
通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
DataGridView控件,放一个DataGridView1和Button1到窗体,下面是按钮下代码
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.DataGridView1.AllowUserToAddRows = False
DataGridView1.RowTemplate.Height = 200
DataGridView1.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.None
For i = 1 To 3
Me.DataGridView1.Columns.Add("列" i.ToString, "列" i.ToString)
Me.DataGridView1.Rows.Add()
Next
Me.DataGridView1.Columns(0).Width = 100
Me.DataGridView1.Columns(1).Width = 500
Me.DataGridView1.Columns(0).Width = 300
End Sub
'自己设置相关需要的属性即可
如图所示,工具箱的“所有Windows窗体”中有,如果没有,可选择“选择项”添加
Spire.XLS for .NET这个可以,操作excel文档的效果不错,性能稳定,而且使用环境不需要安装office excel,个人使用的话可以推荐使用免费版Free Spire.XLS for Java