以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]代码在设计窗口测试正常，应用窗口错误！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28923)
--  作者：红颜
--  发布时间：2013/2/22 15:42:00
--  [求助]代码在设计窗口测试正常，应用窗口错误！

Dim DT1 As String = e.form.Controls("DateTimePicker1").Value
Dim DT2 As String = e.form.Controls("DateTimePicker2").Value
If DT1 Is Nothing Or DT2 Is Nothing Then
    MsgBox("请选择查询起止日期!",64,"提示")
    Return
End If
If DT1 IsNot Nothing Or DT2 IsNot Nothing Then
    Dim b As New SQLGroupTableBuilder("汇总统计","SFMX")
    b.Filter = "[RQ] >= #"& DT1 &"# And [RQ]<= #"& DT2 &"# And [ZT] = "& True &""
    b.Groups.AddDef("XM","项目类别")
    b.Groups.AddDef("MC","项目名称")  
    b.Totals.AddDef("JE","分项合计")
    b.VerticalTotal = True
    b.Build
    MainTable = Tables("汇总统计")
    Tables("汇总统计_Table1").DataSource = b.BuildDataSource()
    Tables("汇总统计_Table1").SetColVisibleWidth("项目类别|90|项目名称|120|分项合计|90")
    DataTables("汇总统计").AllowEdit = False
End If

 

 


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

图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看
--  作者：狐狸爸爸
--  发布时间：2013/2/22 15:46:00
--  

呵呵，错误提示很清楚啊，Tables("汇总统计_Table1")是不存在的，你搞错名称了
--  作者：红颜
--  发布时间：2013/2/22 17:12:00
--  
以下是引用狐狸爸爸在2013-2-22 15:46:00的发言：

呵呵，错误提示很清楚啊，Tables("汇总统计_Table1")是不存在的，你搞错名称了

检查后，不明白症结所在，请赐教！

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:收费2013.2.22.rar
--  作者：lin_hailun
--  发布时间：2013/2/22 17:17:00
--  
 原因是你这个窗口的属性设置出错了。

 你把窗口的属性 所有表者 设置成数据表，而不要设置成已经删除的表。
[此贴子已经被作者于2013-2-22 17:27:23编辑过]
--  作者：lin_hailun
--  发布时间：2013/2/22 17:28:00
--  
 up一下。
--  作者：红颜
--  发布时间：2013/2/22 18:17:00
--  
以下是引用lin_hailun在2013-2-22 17:17:00的发言：
 原因是你这个窗口的属性设置出错了。

 你把窗口的属性 所有表者 设置成数据表，而不要设置成已经删除的表。
[此贴子已经被作者于2013-2-22 17:27:23编辑过]

谢谢指教，正是如此，学习了。