Foxtable(狐表)用户栏目专家坐堂 → 窗口关闭时出现错误提示


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

主题:窗口关闭时出现错误提示

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/23 15:34:00 [显示全部帖子]

表控件名是否正确?,这种方式试试

Dim t As Table = Forms("MainForm").Controls("Table1").Table
t.DataSource = g.BuildDataSource
t.font = New Font("微软雅黑", 14)      '设置字体
t.Cols("机型").Width = 145    '设置列宽
t.Cols("笔数").Width = 105
t.Cols("数量").Width = 105
t.Sort = "笔数 Desc"

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/23 16:01:00 [显示全部帖子]

DataTables("抱怨_TOP榜_Table1").SysStyles("Alternate").BackColor = Color.LightCyan
改为
t.DataTable.SysStyles("Alternate").BackColor = Color.LightCyan

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/23 16:31:00 [显示全部帖子]

"机型"、"抱怨编号"、"数量"是不是有表达式列?

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/23 17:34:00 [显示全部帖子]

上例子看看

下面代码执行正常吗

Dim g As New GroupTableBuilder("统计表1", DataTables("客户抱怨"))
g.Groups.AddDef("机型")
g.Totals.AddDef("抱怨编号", AggregateEnum.Count, "笔数")
g.Totals.AddDef("数量")
'g.VerticalTotal = True      '不能使用合计行,不然排序时会显示到最上方
g.FromServer = True
g.Filter = "抱怨日期 >= '"& dt2 &"' and 抱怨日期 < '"& dt2.AddYears(1) &"'"
g.Build()
MainTable = Tables("统计表1")

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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/1/24 8:47:00 [显示全部帖子]

你这个窗口是不是内嵌到其它窗口里面用的?

 回到顶部