以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]求分组统计返回按钮代码  (http://foxtable.net/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没赋值吧。