新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB中表格控件有很多,如MSFlexGrid,DataGrid,MSHFlexGrid等等
创新互联-专业网站定制、快速模板网站建设、高性价比全州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式全州网站制作公司更省心,省钱,快速模板网站建设找我们,业务覆盖全州地区。费用合理售后完善,10余年实体公司更值得信赖。
使用的多的是微软的FlexGrid控件。
通过菜单"Project" - "Components" - 勾上"Microsoft FlexGrid Control 6.0"进行选择。这个是包含在VS6 SP6安装包内的。
DATAGRIDVIEW其实显示速度非常快的,远超vb6的MSFLEXGRID
如果你愿意,在vb2013中也可以把MSFLEXGRID调处出来的,名字好像是AxMSFlexGrid控件
在工具箱右键添加控件,选择COM,找到Microsoft FlexGrid Control, version 6.0 (SP6)
//用ADO.net中的Connection进行OLE连接到Access文件,连接字符串例子:
connstr="PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=DB文件路径;Jet OLEDB:Database password=密码"
//再发送Command命令SQL,
Select * from Student_Perfomance where Stu_No='取到的学号'
//再用DataReader取出数据,设置到窗体的控件上。
如图所示,工具箱的“所有Windows窗体”中有,如果没有,可选择“选择项”添加
将二位数组转成DataTable,网上找的不知道成不成
public static DataTable ConvertToDataTable(string[,] arr)
{
DataTable dataSouce = new DataTable();
for (int i = 0; i arr.GetLength(1); i++)
{
DataColumn newColumn = new DataColumn(i.ToString(), arr[0, 0].GetType());
dataSouce.Columns.Add(newColumn);
}
for (int i = 0; i arr.GetLength(0); i++)
{
DataRow newRow = dataSouce.NewRow();
for (int j = 0; j arr.GetLength(1); j++)
{
newRow[j.ToString()] = arr[i, j];
}
dataSouce.Rows.Add(newRow);
}
return dataSouce;
}
Private
Sub
AddRow()
Dim
arr(3,
5)
As
Object
'
二维数组
,3和5分别是行和列,自己修改成需要的数
For
i
=
To
UBound(arr)
'根据一维下标来循环新增行
Dim
arr1(UBound(arr,
2))
As
Object
'定义一个
一维数组
For
j
=
To
UBound(arr,
2)
If
DataGridView
7.ColumnCount
j
Then
'根据二维下标来循环新增列
DataGridView7.Columns.Add(j.ToString,
j.ToString)
End
If
arr1(j)
=
arr(i,
j)
'给一维数组赋值
Next
DataGridView7.Rows.Add(arr1)
'根据得到的一位数组新增行
Next
End
Sub