Question

xls如何做为datareport的数据源

如题xls如何做为datareport的数据源
假如，我有个xls表结构是
姓名 年龄 日期
张三 20 2014-03-11
李四 25 2014-01-17
怎么在VB6.0的datareport中循环出一个报表？
请贴源码，或者打包VB源代码。要求从导入XLS开始到循环打印结束。谢谢

Answer 1

private sub command1_click()
CommonDialog1.Filter = "EXCEL文件(*.xls)|*.xls" CommonDialog1.ShowO pen filenamefet = CommonDialog1.FileName Text1.Text = filenamefet If Text1.Text = "" Then MsgBox "aaa", vbExclamation, "" Exit Sub End If Text2.Text = "sheet1" cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & filenamefet & ";Extended Properties='Excel 8.0;HDR=Yes'" rs.Open "select * from [Sheet1$]", cn, adOpenDynamic, adLockOptimistic Set MSHFlexGrid1.DataSource = rs If rs.RecordCount > 0 Then Command2.Enabled = True Else Command2.Enabled = False End If rs.Close cn.Close Exit Sub
end sub
' command2中可写入连接报表

追问

请问，是否有源码？
上述，你只是过滤了xls文件，那么打开哪个？需用到那些控件？谢谢

追答

CommonDialog

mshflexgrid

Answer 2

这点分谁稀罕，如果肯付钱留下联系方式