[求助]报表模板设计时的条件表达式 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]报表模板设计时的条件表达式

共有3927人关注过本帖树形打印复制链接主题：[求助]报表模板设计时的条件表达式

大红袍

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/23 11:34:00 [只看该作者]

以下是引用liuxianjie1980在2015/10/23 11:23:00的发言：

Sheet(3,8).Value = "<合同日期>= # " & dt1 & " # and "合同日期<= # " & dt2 & " #>"

表达式有误？？

3、8，是指第四行，第九列

Sheet(3,8).Value = "<合同日期>= #" & dt1 & "# and "合同日期<= #" & dt2 & "#>"

大红袍

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/23 11:35:00 [只看该作者]

以下是引用liuxianjie1980在2015/10/23 11:29:00的发言：

另:

FileSys.GetFiles("C:\")

比如：如何获得相对路径下所有的xls？

ProjectPath & "Attachments/"

liuxianjie1980

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：633 积分：4016 威望：0 精华：0 注册：2015/1/27 9:34:00

Post By：2015/10/23 11:37:00 [只看该作者]

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Select Case e.Form.Controls("ComboBox1").value
    Case "客户一览表"
        Dim tmp As String = ProjectPath & "Attachments\客户一览表.xls"
        Dim rpt As String = ProjectPath & "Reports\客户一览表.xls"
        Dim Book As New XLS.Book(tmp)
        Book.Build()
        Book.Save(rpt)
        wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
        wbr.AddRess = rpt
    Case "客户合同明细表"
        Dim tmp As String = ProjectPath & "Attachments\客户合同明细表.xls"
        Dim rpt As String = ProjectPath & "Reports\客户合同明细表.xls"
        Dim Book As New XLS.Book(tmp)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dt1 As Date =e.Form.Controls("DateTimePicker1").value
        Dim dt2 As Date =e.Form.Controls("DateTimePicker1").value
        MessageBox.show(dt1)
        Sheet(3,8).Value = "<合同日期>= #" & dt1 & "# and "合同日期<= #" & dt2 & "#>"
        Book.Buid()
        Book.Save(rpt)
        wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
        wbr.AddRess = rpt
End Select