Foxtable(狐表) → 用户栏目 → 专家坐堂 → 3月3日更新


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

主题：3月3日更新
帅哥哟，离线，有人找我吗？
易服
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00 		  发帖心情 Post By：2009/3/3 17:01:00 [显示全部帖子]

可能有问题：
1、光标所在行标记，当执行汇总按钮
Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "造林年度= '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "乡名= '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "村名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "造林类别 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox5")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "林种 = '" & .Value & "'"
    End If
End With
If Filter > "" Then
    Tables("总览").Filter = Filter
End If
Dim t As Table = Tables("总览")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "村名"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "{0} "
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "乡名"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "{0} "
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "造林年度"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "{0} "
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "设计面积,合格面积,需苗量,保存面积,退耕地,荒山,生态林,经济林,用工量,种苗费,管护费,设计费,粮食折价,现金补助,投资概算,成活率合格_已抚,成活率合格_未抚,需补植_已抚,需补植_未抚,重造面积,空白面积,少面积,未抚育面积,补植补造需苗,退耕生态林,退耕经济林,荒山生态林,荒山经济林,二期生态林,二期经济林,二期现金补助,二期粮食折价"
g.Caption = "合计"
t.SubtotalGroups.Add(g)
t.Subtotal()
弹出
图片点击可在新窗口打开查看此主题相关图片如下：标记.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下：标记1.jpg
图片点击可在新窗口打开查看
if e.row.Equals(e.table.current) Then
    e.Style = "标记"
End if
重新执行一下光标所在行颜色又可见
[此贴子已经被作者于2009-3-3 17:08:41编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
易服
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00 		  发帖心情 Post By：2009/3/3 17:01:00 [显示全部帖子]

2、第一次执行统计按钮正常，重新选择统计条件统计时弹出（2月27日更新不出现这个）


图片点击可在新窗口打开查看此主题相关图片如下：统计.jpg
图片点击可在新窗口打开查看
统计代码

If ( e.Form.Controls("CheckBox1").Checked Or e.Form.Controls("CheckBox2").Checked Or e.Form.Controls("CheckBox3").Checked Or e.Form.Controls("CheckBox4").Checked  ) = False Then
    Messagebox.Show("至少选取一个分组项")
    Return
End If

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Filter = "造林年度= '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "乡名= '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "村名 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "造林类别 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox5")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter &  "林种 = '" & .Value & "'"
    End If
End With

Dim g As New GroupTableBuilder("分组统计", DataTables("总览"),Filter)
If e.Form.Controls("CheckBox1").Checked Then g.Groups.AddDef("造林年度")
    If e.Form.Controls("CheckBox2").Checked Then g.Groups.AddDef("乡名")
        If e.Form.Controls("CheckBox3").Checked Then g.Groups.AddDef("村名")
            If e.Form.Controls("CheckBox4").Checked Then g.Groups.AddDef("造林树种_主要树种","主要树种")'添加村名列用于分组
                g.Totals.AddDef("小班号",AggregateEnum.Count,"小班个数")
                g.Totals.AddDef("设计面积","面积合计") '添加数量列用于统计
                g.Totals.AddDef("退耕地") '添加数量列用于统计
                g.Totals.AddDef("退耕生态林") '添加数量列用于统计
                g.Totals.AddDef("退耕经济林") '添加数量列用于统计
                g.Totals.AddDef("荒山") '添加数量列用于统计
                g.Totals.AddDef("荒山生态林") '添加数量列用于统计
                g.Totals.AddDef("荒山经济林") '添加数量列用于统计
                g.Totals.AddDef("生态林") '添加数量列用于统计
                g.Totals.AddDef("经济林") '添加数量列用于统计
                g.Totals.AddDef("混交面积") '添加数量列用于统计
                g.Totals.AddDef("混交退耕") '添加数量列用于统计
                g.Totals.AddDef("混交荒山") '添加数量列用于统计
                g.Totals.AddDef("乔木退耕") '添加数量列用于统计
                g.Totals.AddDef("乔木荒山") '添加数量列用于统计
                g.Totals.AddDef("灌木退耕") '添加数量列用于统计
                g.Totals.AddDef("灌木荒山") '添加数量列用于统计
                g.Totals.AddDef("灌木面积") '添加数量列用于统计
                g.Totals.AddDef("乔木面积") '添加数量列用于统计
                g.Totals.AddDef("国有退耕") '添加数量列用于统计
                g.Totals.AddDef("国有荒山") '添加数量列用于统计
                g.Totals.AddDef("集体退耕") '添加数量列用于统计
                g.Totals.AddDef("集体荒山") '添加数量列用于统计
                g.Totals.AddDef("个人退耕") '添加数量列用于统计
                g.Totals.AddDef("个人荒山") '添加数量列用于统计
                g.Totals.AddDef("平坡退耕") '添加数量列用于统计
                g.Totals.AddDef("退耕斜坡") '添加数量列用于统计
                g.Totals.AddDef("缓坡退耕") '添加数量列用于统计
                g.Totals.AddDef("缓坡荒山") '添加数量列用于统计
                g.Totals.AddDef("斜坡退耕") '添加数量列用于统计
                g.Totals.AddDef("斜坡荒山") '添加数量列用于统计
                g.Totals.AddDef("陡坡退耕") '添加数量列用于统计
                g.Totals.AddDef("陡坡荒山") '添加数量列用于统计
                g.Totals.AddDef("荒山营造") '添加数量列用于统计
                g.Totals.AddDef("荒山管护") '添加数量列用于统计
                g.Totals.AddDef("荒山种苗") '添加数量列用于统计
                g.Totals.AddDef("荒山设计") '添加数量列用于统计
                g.Totals.AddDef("退耕营造") '添加数量列用于统计
                g.Totals.AddDef("退耕管护") '添加数量列用于统计
                g.Totals.AddDef("退耕种苗") '添加数量列用于统计
                g.Totals.AddDef("退耕设计") '添加数量列用于统计
                g.Totals.AddDef("用工量") '添加数量列用于统计
                g.Totals.AddDef("现金补助") '添加数量列用于统计
                g.Totals.AddDef("种苗费") '添加数量列用于统计
                g.Totals.AddDef("管护费") '添加数量列用于统计
                g.Totals.AddDef("粮食折价") '添加数量列用于统计
                g.Totals.AddDef("投资概算") '添加数量列用于统计
                g.Totals.AddDef("设计费") '添加数量列用于统计
                g.Totals.AddDef("成活率合格_已抚","合格已抚") '添加数量列用于统计
                g.Totals.AddDef("成活率合格_未抚","合格未抚") '添加数量列用于统计
                g.Totals.AddDef("需补植_已抚","补植已抚") '添加数量列用于统计
                g.Totals.AddDef("需补植_未抚","补植未抚") '添加数量列用于统计
                g.Totals.AddDef("重造面积") '添加数量列用于统计
                g.Totals.AddDef("空白面积") '添加数量列用于统计
                g.Totals.AddDef("少面积") '添加数量列用于统计
                g.Totals.AddDef("未抚育面积") '添加数量列用于统计
                g.Totals.AddDef("退耕合格已抚") '添加数量列用于统计
                g.Totals.AddDef("退耕合格未抚") '添加数量列用于统计
                g.Totals.AddDef("退耕补植已抚") '添加数量列用于统计
                g.Totals.AddDef("退耕补植未抚") '添加数量列用于统计
                g.Totals.AddDef("退耕重造面积") '添加数量列用于统计
                g.Totals.AddDef("退耕空白面积") '添加数量列用于统计
                g.Totals.AddDef("退耕少面积") '添加数量列用于统计
                g.Totals.AddDef("退耕未抚育面积") '添加数量列用于统计
                g.Totals.AddDef("补植补造需苗") '添加数量列用于统计
                g.Totals.AddDef("实生苗") '添加数量列用于统计
                g.Totals.AddDef("嫁接苗") '添加数量列用于统计
                g.Totals.AddDef("需苗量") '添加数量列用于统计
                g.Totals.AddDef("二期生态林") '添加数量列用于统计
                g.Totals.AddDef("二期经济林") '添加数量列用于统计
                g.Totals.AddDef("二期现金补助") '添加数量列用于统计
                g.Totals.AddDef("二期粮食折价") '添加数量列用于统计
                g.VerticalTotal = True '自动垂直汇总
                g.Build()
                MainTable = Tables("分组统计")
 回到顶部
帅哥哟，离线，有人找我吗？
易服
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00 		  发帖心情 Post By：2009/3/3 17:51:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:退耕还林管理系统.rar

密码 developer：1E40F
文件太大删除了wav
问题出在
“汇总”按钮，时有时无。

图片点击可在新窗口打开查看此主题相关图片如下：标记.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：标记1.jpg
图片点击可在新窗口打开查看

“统计”按钮重新选条件后出现。第一次执行统计按钮正常，重新选择统计条件统计时弹出（2月27日更新不出现这个）



图片点击可在新窗口打开查看此主题相关图片如下：统计.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2009-3-3 17:59:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
易服
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：787 积分：6349 威望：0 精华：0 注册：2008/9/1 8:26:00 		  发帖心情 Post By：2009/3/3 22:59:00 [显示全部帖子]

DrawCell事件中的代码是需要的，目的是标注光标所在的行因为表中列比较多，一屏显示不完需要拉动滚动条，为了防止错位用颜色标注

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询