Foxtable(狐表)用户栏目专家坐堂 → [求助][讨论]网页上日期引用


  共有11752人关注过本帖树形打印复制链接

主题:[求助][讨论]网页上日期引用

帅哥哟,离线,有人找我吗?
nths
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
[求助][讨论]网页上日期引用  发帖心情 Post By:2020/2/28 11:51:00 [只看该作者]

老师:你好!写了以下代码 ,想实现输入开始日期和结束日期 点确定能生成各账户的余额,但统计表1中没有数据  是不是引用“开始日期”和“结束日期”代码错误?正确代码应该怎样写?谢谢
Dim wb As New WeUI

Select Case e.Path

    Case "filter.htm"       

        wb.AddForm("","form1","list.htm")

        With wb.AddInputGroup("form1","ipg1","现金银行余额")

            .AddInput("startdate","开始日期","date")

            .AddInput("enddate","结束时间","date")

        End With     

      


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/2/28 11:54:00 [只看该作者]


       代码 b.Filter = "日期 < '"& e.PostValues("startdate") & "'"


 回到顶部
帅哥哟,离线,有人找我吗?
nths
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/2/28 11:55:00 [只看该作者]

   代码 b.Filter = "日期 < '"& e.PostValues("startdate") & "'"  引用不了

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/28 12:14:00 [只看该作者]

贴出完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/2/29 21:12:00 [只看该作者]

Dim wb As New WeUI
Select Case e.Path
    Case "filter.htm"        
        wb.AddForm("","form1","list.htm")
        With wb.AddInputGroup("form1","ipg1","现金银行余额")
            .AddInput("startdate","开始日期","date")
            .AddInput("enddate","结束时间","date")
        End With     
       
       

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/2/29 21:21:00 [只看该作者]

完整代码

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/2/29 21:21:00 [只看该作者]

完整代码
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:99.rar


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/1 20:36:00 [只看该作者]

Dim wb As New WeUI
Select Case e.Path
    Case "filter.htm"
        wb.AddForm("","form1","list.htm")
        With wb.AddInputGroup("form1","ipg1","现金银行余额")
            .AddInput("startdate","开始日期","date")
            .AddInput("enddate","结束时间","date")
        End With
        '
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        
    Case "list.htm"
        Dim sql As String = "Select *  FROM {日记账} "
        Dim b As New SQLGroupTableBuilder("统计表1",sql, "Data1")
        Dim ft1 As fxDataSource
        Dim Filter As String
        b.Filter = "日期 < '"& e.PostValues("startdate") & "'"
        b.Groups.AddDef("账户")
        b.Groups.AddDef("账户科目代码")
        b.Totals.AddDef("借方金额","借方金额1")
        b.Totals.AddDef("贷方金额","贷方金额1")
        ft1 = b.BuildDataSource()
        Dim sql2 As String = "Select *  FROM {日记账} "
        Dim b1 As New SQLGroupTableBuilder("统计表2",sql2, "Data1")
        Dim ft2 As fxDataSource
        If e.PostValues.ContainsKey ("startdate")
            Filter  = "日期 >= '" & e.PostValues("startdate") & "'"
        End If
        If filter > "" Then filter = filter & " and "
        If e.PostValues.ContainsKey ("enddate")
            Filter  = Filter & "日期 <= '" & e.PostValues("enddate") & "'"
        End If
        b1.Filter = Filter
        b1.Groups.AddDef("账户")
        b1.Groups.AddDef("账户科目代码")
        b1.Totals.AddDef("借方金额" ,"本期借方金额")
        b1.Totals.AddDef("贷方金额","本期贷方金额")
        ft2 = b1.BuildDataSource()
        Dim nms As String() = {"账户"} '指定连接列
        ft1.Combine(nms,ft2,nms) '将销售统计数据组合到进货统计数据
        ft1.show("统计表1")
        
        With DataTables("("统计表1")") .DataCols  '用表达式列计算库存数据
            .Add("期初余额",Gettype(Double), "IsNull([借方金额1],0)  - ISNULL([贷方金额1],0)")
            .Add("期末余额",Gettype(Double), "IsNull([借方金额1],0) + ISNULL([本期借方金额],0) - ISNULL([贷方金额1],0)  - ISNULL([本期贷方金额],0)")
        End With'
        Tables("统计表1").SetColVisibleWidth("账户|130|期初余额|90|本期借方金额|90|本期贷方金额|90|期末余额|90|")
        
        With wb.AddTable("","Table1")
            '.CreateFromTable(Tables("统计表1"),True)
            .CreateFromDataTable(Tables("统计表1"),True,"账户","期初余额","本期借方金额","本期贷方金额","期末余额")
        End With
        
End Select
e.WriteString(wb.Build)


虽然勉强可以这样用,但是不建议在服务端使用fxDataSource,因为并发会有问题。建议使用sql处理

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/3/6 9:40:00 [只看该作者]

老师:你好!我按照帮助文件中使用关联表做了简单的材料入库录入 代码如附件,不知哪里错了,入库明显示不了,麻烦老师给予指导,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
nths
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:302 积分:3798 威望:0 精华:0 注册:2017/3/25 15:34:00
  发帖心情 Post By:2020/3/6 9:41:00 [只看该作者]


老师:你好!我按照帮助文件中使用关联表做了简单的材料入库录入 代码如附件,不知哪里错了,入库明显示不了,麻烦老师给予指导,谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:函数.rar


 回到顶部
总数 129 1 2 3 4 5 6 7 8 9 10 下一页 ..13