问题描述
ID姓名科目分数001林一数学100001林一语文100002林五数学100002林五语文100----这个数据是sql查出来的,放进DATATABLE里,然后怎么循环出下面在EXCEL中的样式。求解???--------------------------------------------------林一001数学100语文100林五002数学100语文100
解决方案
本帖最后由 a469779842 于 2012-02-21 22:49:06 编辑
解决方案二:
select姓名||''||IDfromTable
解决方案三:
Xlsbook=Xls.Application.Workbooks.AddXlssheet=Xlsbook.Sheets(1)ForaAsInteger=0To100Xlssheet.Cells(1,a+1)=aNext
解决方案四:
我之前编写过一个输出到word表格程序,部分代码如下:'插入一个MemberName.CountX5的表格并填充DimoTableAsWord.Table=oDoc.Tables.Add(oDoc.Bookmarks.Item("endofdoc").Range,MemberName.Count+1,5)oTable.Borders.OutsideLineStyle=Word.WdLineStyle.wdLineStyleSingle'设置边框oTable.Borders.InsideLineStyle=Word.WdLineStyle.wdLineStyleSingleoTable.Range.ParagraphFormat.SpaceAfter=6oTable.Columns.Item(1).Width=oWord.InchesToPoints(1.8)'改变列宽oTable.Columns.Item(2).Width=oWord.InchesToPoints(1)oTable.Columns.Item(3).Width=oWord.InchesToPoints(1)oTable.Columns.Item(4).Width=oWord.InchesToPoints(1)oTable.Columns.Item(5).Width=oWord.InchesToPoints(1)oTable.Cell(1,1).Range.Text="构件名称"oTable.Cell(1,2).Range.Text="强度平均值(MPa)"oTable.Cell(1,3).Range.Text="强度标准差(MPa)"oTable.Cell(1,4).Range.Text="强度最小值(MPa)"oTable.Cell(1,5).Range.Text="强度推定值(MPa)"Forj=0ToMemberName.Count-1MemberResult=CalMember(Sum,j)'调用函数Forc=0To4oTable.Cell(j+2,c+1).Range.Text=MemberResult(1)(0,c)NextNext其中MemberResult是交错数组。不知对输出到Excel是否所启发?