共9 条记录, 每页显示 10 条, 页签: [1]

标题：[求助]填充问题

1楼

abcdzabcdz 发表于：2009/4/20 16:36:00

自动填充问题

易表中的findtext函数特别有用,它可在指定的表、指定的列中查找指定内容,并返回符合条件的行中指定列的内容；而在FOXTABLE中却不知哪个函数与之相近？

现需将“成绩表”中月份为‘200809’的“总分”和“总分级名”值返回到“成绩个体跟踪1”表的相应列的相应行中，请各位老师指点。谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:填充问题.table

[此贴子已经被作者于2009-4-20 16:48:32编辑过]

2楼

狐狸爸爸 发表于：2009/4/20 16:47:00

你可以看看DataTable的Find方法，很灵活的，不知道必findText强多少倍：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目34.rar

3楼

abcdzabcdz 发表于：2009/4/20 16:55:00

以下是引用狐狸爸爸在2009-4-20 16:47:00的发言：
你可以看看DataTable的Find方法，很灵活的，不知道必findText强多少倍?

看了多遍,不知如何运用?

原1楼文件有误,重传1楼文件.

4楼

狐狸爸爸 发表于：2009/4/20 17:01:00

其实就是一回事，变化的只是条件：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目35.rar

[此贴子已经被作者于2009-4-20 17:01:58编辑过]

5楼

abcdzabcdz 发表于：2009/4/20 17:11:00

谢谢贺老师!

6楼

xl 发表于：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

7楼

mr725 发表于：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

多试一试就知道了···

8楼

xl 发表于：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编辑过]

9楼

程兴刚 发表于：2010/4/25 20:24:00

我想要findtext2！

共9 条记录, 每页显示 10 条, 页签: [1]