主题：[求助]填充问题

 

自动填充问题

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:填充问题.table

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目34.rar

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目35.rar

谢谢贺老师! 

对于下列语句，若不用“表事件”，而用“窗口按纽”，不知怎样修改？（在易表中刷新公式，常常可改为按纽方式执行，不知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

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

多试一试就知道了···

谢谢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

我想要findtext2！