[求助]填充问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]填充问题

共有17362人关注过本帖树形打印复制链接主题：[求助]填充问题

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：3961 威望：0 精华：0 注册：2009/4/28 7:39:00

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：400 积分：3961 威望：0 精华：0 注册：2009/4/28 7:39:00

Post By：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编辑过]

下一主题 >> << 上一主题

主题：[求助]填充问题