- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]填充问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2525)
-- 发布时间：2009/4/20 16:36:00
-- [求助]填充问题
自动填充问题
易表中的findtext函数特别有用,它可在指定的表、指定的列中查找指定内容,并返回符合条件的行中指定列的内容；而在FOXTABLE中却不知哪个函数与之相近？
现需将“成绩表”中月份为‘200809’的“总分”和“总分级名”值返回到“成绩个体跟踪1”表的相应列的相应行中，请各位老师指点。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:填充问题.table |
[此贴子已经被作者于2009-4-20 16:48:32编辑过]
-- 发布时间：2009/4/20 16:47:00
--
你可以看看DataTable的Find方法，很灵活的，不知道必findText强多少倍：
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目34.rar |
-- 发布时间：2009/4/20 16:55:00
--
以下是引用狐狸爸爸在2009-4-20 16:47:00的发言：
你可以看看DataTable的Find方法，很灵活的，不知道必findText强多少倍?
你可以看看DataTable的Find方法，很灵活的，不知道必findText强多少倍?
看了多遍,不知如何运用?
原1楼文件有误,重传1楼文件.
-- 发布时间：2009/4/20 17:01:00
--
其实就是一回事，变化的只是条件：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目35.rar |
[此贴子已经被作者于2009-4-20 17:01:58编辑过]
-- 发布时间：2009/4/20 17:11:00
--
谢谢贺老师!
-- 发布时间：2010/4/23 7:37:00
--
对于下列语句，若不用“表事件”，而用“窗口按纽”，不知怎样修改？（在易表中刷新公式，常常可改为按纽方式执行，不知fox中能否实现？）
If e.DataCol.Name = "学号" Then
Dim dr1 As DataRow = e.DataRow
Dim dr2 As DataRow = DataTables("成绩库").Find("[学号] = " & dr1("学号"))
If dr2 IsNot Nothing Then
dr1("姓名") = dr2("姓名")
dr1("班级") = dr2("班级")
End If
End If
-- 发布时间：2010/4/23 11:00:00
--
If e.DataCol.Name = "学号" Then \'改为： With Tables("学号") 或 If Maintable = Tables("学号")
Dim dr1 As DataRow = e.DataRow \'改为： Datsrow = DataTables("学号").Datarows(Tables("学号").Current) 或 Dim dr1 As Row = Tables("学号").Current
Dim dr2 As DataRow = DataTables("成绩库").Find("[学号] = " & dr1("学号"))
If dr2 IsNot Nothing Then
dr1("姓名") = dr2("姓名")
dr1("班级") = dr2("班级")
End If
End If \'改为： End With
多试一试就知道了···
-- 发布时间：2010/4/23 14:03:00
--
谢谢mr725老师的提示！转换成功，上传共享：
For Each dr1 As Datarow In DataTables("成绩个体跟踪1").DataRows
Dim dr2 As DataRow = DataTables("成绩库").Find("[学号] = " & dr1("学号"))
If dr2 IsNot Nothing Then
dr1("姓名") = dr2("姓名")
dr1("班级") = dr2("班级")
End If
next
[此贴子已经被作者于2010-4-23 14:05:18编辑过]
-- 发布时间：2010/4/25 20:24:00
--
我想要findtext2！