以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  打开窗口的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=73302)
--  作者：xiaohuli
--  发布时间：2015/8/16 20:07:00
--  打开窗口的问题
有很多个按钮，点击每个按钮后都能打开同一个窗口，这个窗口中有一个表控件，表是用sql语句填充的，点击不同的按钮，打开的这个窗口能用sql填充不同的数据，这种想法能实现不？
--  作者：keofcn
--  发布时间：2015/8/16 20:11:00
--  

这个很容易实现吧，搞个全局参数，点每个按钮时改变这个全局参数，然后在窗口里select case 判断下

[此贴子已经被作者于2015/8/16 20:11:37编辑过]
--  作者：有点蓝
--  发布时间：2015/8/16 20:16:00
--  
\'生成统计表
Dim dtb As New DataTableBuilder("临时表")
dtb.AddDef("产品", GetType(String), 32)
dtb.AddDef("数量", GetType(Integer))
dtb.AddDef("金额", GetType(Double))
dtb.Build(True)
\'填充数据
dim f As New Filler
f.SourceTable = DataTables("订单")
f.SourceCols = "产品" 
f.DataTable = DataTables("临时表")
f.DataCols = "产品" 
f.Fill()

Tables("窗口1_Table1").DataSource = DataTables("临时表")

参考 示列四
[此贴子已经被作者于2015/8/16 20:16:47编辑过]
--  作者：xiaohuli
--  发布时间：2015/8/16 21:44:00
--  

在用sql语句填充表的时候，比如说有个订单日期，我想查询本周的所有数据的话，应该怎么查询，订单日期大于等于本周的开始日期，小于等于本周的结束日期，这个本周的开始日期和结束日期应该怎么写。

select * f rom 订单表 where  订单日期>=\'本周开始日期\'  and 订单日期<=\'本周结束日期\'
--  作者：有点蓝
--  发布时间：2015/8/16 21:57:00
--  
参考这里本周数据加载
http://www.foxtable.com/help/index.html?n=2706.htm
--  作者：xiaohuli
--  发布时间：2015/8/16 22:47:00
--  

老师，是这样的吗？比如说有3个按钮，然后在全局代码中定义三个参数，将这三个参数名称定义为三个按钮名称，然后用select case 语句定义button控件，然后用case对每个按钮进行不同的sql语句填充是这样的吗？

Select WinForm.Button
    Case "按钮1"
     fill1

    Case "按钮2"
        fill2

End Select
--  作者：有点蓝
--  发布时间：2015/8/16 23:03:00
--  
直接在每个按钮事件中写吧，你的按钮又不是动态添加的
--  作者：xiaohuli
--  发布时间：2015/8/17 9:12:00
--  

我直接在按钮中写了事件，点击每个按钮都能打开同一个窗口，但是表的sql语句不执行。

forms("提示").open
Forms("统计详情").open


Tables("统计详情_Table1").Fill("SELEC T 编号,名称,件数,开始日期,结束日期 FROM 订单总表 where 开始日期 >= \'"  & Date.Today & " \' and 开始日期 < \'" & Date.Today.AddDays(1) & " \' ","chk",True)

 

Tables("统计详情_Table1").Font = New Font("宋体",11,FontStyle.Bold)
Tables("统计详情_Table1").AutoSizeCols()
forms("提示").close

最后提示说是找不到统计详情_Table1
--  作者：大红袍
--  发布时间：2015/8/17 9:23:00
--  

这样试试

 

e.Form.Controls("Table1").Table.Fill("SELEC T 编号,名称,件数,开始日期,结束日期 FROM 订单总表 where 开始日期 >= \'"  & Date.Today & "\' and 开始日期 < \'" & Date.Today.AddDays(1) & "\' ","chk",True)
--  作者：xiaohuli
--  发布时间：2015/8/17 9:44:00
--  

还是不对，说是找不到table1 的控件，老师我的意思是这样的，比如说有三个按钮，还有一个窗口1，这个窗口1就只有一个表控件，当我按钮这三个按钮的时候都能打开这个窗口1 ，但打开后希望能看到不同的数据，因为我想点击每个按钮后，都能在窗口1中的表控件中填充不同的数据。这样应该怎么做？

比如说点击按钮1，打开窗口1，然后执行fill1

点击按钮2，打开窗口1，执行fill2