以文本方式查看主题
- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]求分组统计返回按钮代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30823)
|
-- 作者:anxue
-- 发布时间:2013/4/4 13:08:00
-- [求助]求分组统计返回按钮代码
求分组统计返回 按钮代码
Dim lbl As WinForm.Label = e.Form.Controls("Label1") If lbl.Text = "" Then MainTable = Tables("订单") Else MainTable= Tables(lbl.Text) End If
引入这段代码 出现这个
此主题相关图片如下:qq截图20130404130709.jpg

此主题相关图片如下:qq截图20130404125903.jpg

[此贴子已经被作者于2013-4-4 13:09:44编辑过]
|
-- 作者:有点甜
-- 发布时间:2013/4/6 9:51:00
--
这段代码其实是和其他代码配合使用的,事先将要返回的表的名称设置为label的标题,否则肯定出错。
|
-- 作者:anxue
-- 发布时间:2013/4/6 11:33:00
--
那这个分组统计之后 返回按钮 代码 如何写?
|
-- 作者:有点甜
-- 发布时间:2013/4/6 17:41:00
--
很简单:
MainTable = Tables("原始数据表的名称")
|
-- 作者:e-png
-- 发布时间:2013/4/6 18:25:00
--
你的label1没赋值吧。
|