- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 取值问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=5652)
-- 发布时间：2009/12/25 18:41:00
-- 取值问题
下列设计中用到“Tables("课时名单").Rows(i)("计分") =e.Form.Controls(Values(0)).Value”一句，其中“e.Form.Controls(Values(0)).Value”的值当前窗口输入的“星期一至星期日的值”，我现欲改为从“表A”的“正课”列中取星期一至星期日的值，不知怎样修改？请各位老师看看。谢谢！
表A：
|
星期 |
正课 |
辅导 | |
|
2009.11 |
星期一 |
3 |
3 |
|
2009.11 |
星期二 |
4 |
3 |
|
2009.11 |
星期三 |
4 |
3 |
|
2009.11 |
星期四 |
5 |
4 |
|
2009.11 |
星期五 |
3 |
4 |
|
2009.11 |
星期六 |
3 |
5 |
|
2009.11 |
星期日 |
4 |
5 |
\'生成"课时名单"表
Dim ksmd As New DataTableBuilder("课时名单")
ksmd.AddDef("姓名", GetType(String), 15)
ksmd.AddDef("星期", GetType(String), 15)
ksmd.AddDef("计分", GetType(Integer))
ksmd.TableVisible = false
ksmd.Build()
\'生成"课时名单"数据
Dim Values() As String
Dim n As Integer = Tables("课程表").rows.count
Dim n1 As Integer
for Each dc as Datacol in DataTables("课程表").Datacols
if dc.name <> "班级" Then
n1 = n1 +1
dim f As New Filler
f.SourceTable = DataTables("课程表") \'指定数据来源
f.SourceCols = dc.name \'指定数据来源列
f.DataTable = DataTables("课时名单") \'指定数据接收表
f.DataCols = "姓名" \'指定数据接收列
f.Distinct = false
f.Fill() \'填充数据
Values = dc.name.split("_")
For i As integer = (n*n1)-n to Tables("课时名单").rows.count -1
Tables("课时名单").Rows(i)("星期") = Values(0)
Tables("课时名单").Rows(i)("计分") =e.Form.Controls(Values(0)).Value
Next
end if
Next
-- 发布时间：2009/12/26 0:30:00
--
有点难为大家了。
-- 发布时间：2009/12/26 0:56:00
--
我再仔细考虑一下，也许能解决问题。
-- 发布时间：2009/12/26 10:27:00
--
有点难为大家了。
解决不了，传上文件请老师看一下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:1234444444.table |
-- 发布时间：2009/12/26 11:12:00
--
\'生成"课时名单"表
Dim ksmd As New DataTableBuilder("课时名单")
ksmd.AddDef("姓名", GetType(String), 15)
ksmd.AddDef("星期", GetType(String), 15)
ksmd.AddDef("计分", GetType(Integer))
ksmd.Build()
\'生成"课时名单"数据
Dim Values() As String
Dim n As Integer = Tables("课程表").rows.count
Dim n1 As Integer
for Each dc as Datacol in DataTables("课程表").Datacols
if dc.name <> "班级" Then
n1 = n1 +1
dim f As New Filler
f.SourceTable = DataTables("课程表") \'指定数据来源
f.SourceCols = dc.name \'指定数据来源列
f.DataTable = DataTables("课时名单") \'指定数据接收表
f.DataCols = "姓名" \'指定数据接收列
f.Distinct = false
f.Fill() \'填充数据
Values = dc.name.split("_")
For i As integer = (n*n1)-n to Tables("课时名单").rows.count -1
Dim dr As DataRow = DataTables("表A").Find("星期 = \'" & Values(0) & "\'")
Tables("课时名单").Rows(i)("星期") = Values(0)
Tables("课时名单").Rows(i)("计分") = dr("正课")
Next
end if
Next
-- 发布时间：2009/12/26 13:14:00
--
记住了，谢谢老师指点。复习一下帮助中相关知识：
Find
在DataTable查找符合条件的行，如果找到的话，返回找到的行，否则返回Nothing。
如果有多个符合条件的行，默认返回第一个，也可以指定返回第几个符合条件的行。
语法：
Find(Filter,Sort,Index)
Filter: 条件表达式，请参考表达式的运算符和函数
Sort: 可选参数，指定排序方式。
Index: 可选参数，指定返回第几个符合条件的行。
示例一：
Dim
dr As DataRowdr = DataTables("产品").Find("产品编号 = \'03\'") \'找出编号为03的产品
With DataTables("订单")
dr = .Find("产品 = \'PD01\'","日期") \'找出第一次订购PD01产品的记录
dr = .Find("产品 = \'PD01\'","日期",1) \'找出第二次订购PD01产品的记录
End With
实例二：
有的时候，我们需要查找倒数第几行数据，例如最近一次订购某某产品的记录。
可以参考下面的代码：
Dim
dr As DataRowWith DataTables("订单")
dr = .Find("产品 = \'PD01\'","日期 Desc") \'找出最后一次订购PD01产品的记录
dr = .Find("产品 = \'PD01\'","日期 Desc",1) \'找出倒数第二次订购PD01产品的记录
End With
可以看到代码和原来几乎一样，唯一的变化是排序参数，被改为：日期 Desc
加上DESC使得日期按照降序排序，最后的日期排在最前面，我们所找出的第一条记录，就是最后一次订购产品PD01的记录。
示例三
通常应该在在代码中判断是否找到了符合条件的行，然后再运行后续的代码。
例如要找出最近一次订购产品数量超过1000的订单，并显示订单的日期和客户：
Dim
dr As DataRowdr = DataTables("订单").Find("数量 > 1000","日期 Desc")
If dr IsNot Nothing Then \'如果找到的话
Output.Show("日期:" & dr("日期"))
Output.Show("客户:" & dr("日期"))
End If
如果我们不加上判断，直接：
Dim
dr As DataRowdr = DataTables("订单").Find("数量 > 1000","日期 Desc")
Output.Show("日期:" & dr("日期"))
Output.Show("客户:" & dr("日期"))
一旦订单表并不存在订购数量超过1000的订单，那么Find方法返回Nothing，导致后续代码运行出错。
Find函数只能找出一条符合条件的行，如果要同时找出所有符合条件的行，可以使用Select方法。
Select
以集合的形式，返回所有符合指定条件的行。
语法：
Select(Filter)
Select(Filter,Sort)
Filter: 条件表达式，请参考表达式的运算符和函数
Sort: 可选参数，指定排序方式
我们经常需要对符合某一条件的记录，统一进行处理，此时Select方法就派上用场了。
例如，对于1999年1月4日订购PD01的订单，希望将其折扣统一设置为0.12，代码为：
Dim
drs As List(Of DataRow)drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#")
For Each dr As Datarow In drs
dr("折扣") = 0.12
Next
再例如，希望列出1999年1月4日订购PD01的客户，按订购的数量排序：
Dim
drs As List(Of DataRow)drs = DataTables("订单").Select("[产品] = \'PD01\' And [日期]= #1/4/1999#","数量 DESC")
For Each dr As Datarow In drs
Output.show(dr("客户"))
Next
下面是一个典型的应用，在一个成绩表中，包括班级、姓名、总分、总分排名几列数据，希望按班级自动生成总分排名：
\'获得所有班级名称,保存在集合中
Dim bjs As List(Of String) = DataTables("成绩表").GetUniqueValues("","班级")
For Each bj As String In bjs
\'获得该班级的全部行,按总分降序排序
Dim drs As List(Of DataRow) = DataTables("成绩表").Select("[班级] = " & bj, "总分 DESC")
For n As integer = 0 To drs.Count - 1 \'遍历所有行
If n > 0 AndAlso drs(n)("总分") = drs(n-1)("总分") Then \'如果总分和上一行相同
drs(n)("总分排名") = drs(n-1)("总分排名") \'则排名等于上一行
Else
drs(n)("总分排名") = n + 1 \'设置排名
End If
Next
Next
上面的例子，可以参考CaseStudy目录下的文件：成绩排名.Table