Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共8 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请问动态DataList如何设置刷新按钮?(附问:如何清空动态DataList数据?)

1楼
菜鸟foxtable 发表于:2009/1/12 15:16:00
按钮A代码如下:
Dim cmd As New SQLcommand
cmd.Con nection Name = "zygl"  这行故意留空格的,否则论坛不显示...
cmd.CommandText = "Select 入院日期,住院号,姓名,性别,年龄,入院诊断,费用类别,出院诊断,出院申请 From [住院登记] where 出院结账 = false"
Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.DataTable = cmd.ExecuteReader()
dst.Build()

另设定一个按钮B,应该如何设置代码进行DataList1数据的刷新?(数据发生变化,项目不曾关闭前提下)
[此贴子已经被作者于2009-1-12 16:33:15编辑过]
2楼
lxl 发表于:2009/1/12 15:31:00

就把按钮A当刷新按钮吧

3楼
菜鸟foxtable 发表于:2009/1/12 16:06:00
以下是引用lxl在2009-1-12 15:31:00的发言:

就把按钮A当刷新按钮吧

看来还是外部数据表没同步...
上述代码前面加上下面这段就OK了..
For Each dt As DataTable In DataTables
    dt.Save()
Next

[此贴子已经被作者于2009-1-12 16:32:29编辑过]
4楼
kylin 发表于:2009/1/12 16:14:00

认真阅读以下帮助文件:
  

也许你已经留意到,既然Filter和Sort属性都是用于动态设置绑定的,那么对于已经绑定好的DataList,如何修改其筛选条件和排序方式呢?为此DataList提供了另外两个属性:

示例二

例如希望单击某各按钮,DataList只显示华北地区的客户:

Dim dst As WinForm.DataList = e.Form.Controls("DataList1")
dst
.RowFilter = "[地区] = '华北'"
dst
.Build()

刷洗按钮参考以上写代码吧,呵呵

5楼
菜鸟foxtable 发表于:2009/1/12 16:31:00
附带问个问题,项目不关闭前提下,切换回动态DataList窗口时,自动清空DataList里的数据,窗口加载时的执行代码如何写?
6楼
czy 发表于:2009/1/12 16:47:00
最好的办法恐怕是什么代码都不写,或从RowFilter中想办法。
7楼
菜鸟foxtable 发表于:2009/1/12 17:11:00
以下是引用czy在2009-1-12 16:47:00的发言:
最好的办法恐怕是什么代码都不写,或从RowFilter中想办法。

代码还是要写的...加载窗口时执行上述代码的同时加入下面这个条件...

Dim
dst As WinForm.DataList = e.Form.Controls("DataList1")
dst.RowFilter
= "[住院号] = ''"
dst
.Build()

呵呵,这样子应该可以..因为住院号不可能为空..图片点击可在新窗口打开查看

[此贴子已经被作者于2009-1-12 17:12:54编辑过]
8楼
czy 发表于:2009/1/12 18:18:00
是个办法。
共8 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.