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


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

主题：窗口关闭时出现错误提示
帅哥哟，离线，有人找我吗？
qwz405
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		窗口关闭时出现错误提示  发帖心情 Post By：2017/1/23 14:20:00 [显示全部帖子]

单选框的代码如下所示，只要是选中了，那关闭的时候就会有错误提示：
类似代码在别的地方都有用，使用都是正常的。


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


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


Dim cmd As New SQLCommand      
Dim dt As Date
cmd.ConnectionName ***
cmd.CommandText ***
dt = cmd.ExecuteScalar()

Dim y As Integer = dt.Year     '获得当前所在的年度
Dim nian As WinForm.ComboBox = e.Form.Controls("comnian")     '年度取值框数据
nian.Value = y
Dim dt2 As Date = New Date(y,1,1)     '获得当前所在年度的第一天

Dim l2 As WinForm.Label = e.Form.Controls("Label2")    '描述
l2.Visible = False


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")

Tables("抱怨_TOP榜_Table1").DataSource = g.BuildDataSource
Tables("抱怨_TOP榜_Table1").font = New Font("微软雅黑", 14)      '设置字体
Tables("抱怨_TOP榜_Table1").Cols("机型").Width = 145    '设置列宽
Tables("抱怨_TOP榜_Table1").Cols("笔数").Width = 105
Tables("抱怨_TOP榜_Table1").Cols("数量").Width = 105
Tables("抱怨_TOP榜_Table1").Sort = "笔数 Desc"

With Tables("抱怨_TOP榜_Table1")      '自动合计行
    .Cols("笔数").GrandTotal = True
    .Cols("数量").GrandTotal = True
    .GrandTotal = True
End With

DataTables("抱怨_TOP榜_Table1").SysStyles("Alternate").BackColor = Color.LightCyan     '设置交替行颜色
DataTables("抱怨_TOP榜_Table1").SysStyles("EmptyArea").BackColor = Color.LightBLue     '设置背景颜色
[此贴子已经被作者于2017/1/23 14:23:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qwz405
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2017/1/23 15:47:00 [显示全部帖子]

修改代码后，还是找不到表
但表应该是存在的，它的数据都能正常显示出来，很奇怪~


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


Dim t As Table = Forms("抱怨_TOP榜").Controls("Table1").Table
t.****
 回到顶部
帅哥哟，离线，有人找我吗？
qwz405
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2017/1/23 16:13:00 [显示全部帖子]

不是这个原因，我把后面的合计行，表格样式设定都注释了，还是如此。


问题出在这个语句，但不知道为什么？
Dim t As Table = Forms("抱怨_TOP榜").Controls("Table1").Table
t.DataSource = g.BuildDataSource
[此贴子已经被作者于2017/1/23 16:13:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qwz405
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2017/1/23 16:36:00 [显示全部帖子]

现在不喜欢用表达式列了


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

[此贴子已经被作者于2017/1/23 16:37:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qwz405
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2017/1/24 8:30:00 [显示全部帖子]

代码应该没问题，因为单选框选择时，数据都是正常加载显示

我在关闭按钮中加了代码，在关闭时将单选框都释放
问题没有找到，但错误不显示了


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

[此贴子已经被作者于2017/1/24 8:30:35编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qwz405
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：526 积分：5083 威望：0 精华：0 注册：2015/4/15 15:25:00 		  发帖心情 Post By：2017/1/24 10:20:00 [显示全部帖子]

是别的窗口再点进去的

别的好几个地方也这样用，没有错误提示

现在错误不提示了，就这样吧……谢谢了~
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05566 秒, 5 次数据查询