报表问题，很简单？

Question

查询结果最好生成报表格式, 不知你用什么控件做报表, 如果本身报表控件没有报表格式 则转换成Excel

Answer 1

处理报表的例子中，大多是采用VB和EXCEL结合的解决办法，因为电子表格很灵活；因为月报和年报的查询结果的使用周期要长一些，所以一般保存成数据库的格式，而象日报一类的查询结果使用频率较高，所以可以保存成EXCEL的形式。

Answer 2

我用的是水晶报表8.5,ACCESS数据库

Answer 3

我用access建新表的方法：
strSQL = "SELECT 学号,姓名，成绩 INTO [不及格报表]" & _
         " IN 'C:\学生数据库.mdb'" & _
         " FROM [学生表] WHERE 成绩<60;" 但每次将查询后的结果保存时，都说”不及格报表“已经存在，怎么才能将每次查询的结果建成不同的新表？

Answer 4

定义不同的报表名啊dim 报表名 as string
报表名=textbox1.text
strSQL = "SELECT 学号,姓名，成绩 INTO "& 报表名 &_
         " IN 'C:\学生数据库.mdb'" & _
         " FROM [学生表] WHERE 成绩<60;" '*************************************************
如果要加到已有的报表中，有2种方法：
方法1
先用insert into语句，如果出错，再select ...into再给一个例子：
On Error Resume Next
'打开数据库
strSQL = "INSERT INTO [发出箱数表] " & _
    "SELECT 计划编号,架号,箱数,箱型,性质,类别" & _
    " FROM " & 表名 & _
    " WHERE (Not ISNULL([临时报表].[箱数]));"
adoRS.Source = strSQL
adoRS.Open'如不存在则创建
If Err Then
    Err.Clear
    'adoRS.CursorType = adOpenStatic
    'adoRS.ActiveConnection = cn
    strSQL = "SELECT 计划编号,架号,箱数,箱型,性质,类别" & _
        " INTO [发出箱数表] " & _
        " FROM " & 表名 & _
        " WHERE (Not ISNULL([临时报表].[箱数]));"
    adoRS.Source = strSQL
    adoRS.Open'**************************************************或者：方法2
可以判断文件是否存在
    
    Dim strFileName As String
    Dim objFile As Object
    strFileName = App.Path & "\B.MDB"
    Set objFile = CreateObject("Scripting.FileSystemObject")
    If objFile.folderexists(strFileName) = False Then '不存在创建
       Set MydataBase = Workspaces(0).CreateDatabase( _
         App.Path & "\b.mdb", dbLangGeneral, dbVersion30)
 
    End If以上例子变化一下就可以了