专家坐堂-如何设置当前行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何设置当前行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96540)

--  作者：zhangchi96
--  发布时间：2017/2/22 22:21:00
--  如何设置当前行

For Each dr1 As DataRow In DataTables("职工信息表").DataRows
For Each dr2 As DataRow In DataTables("职工资料").Select("")
If dr2("身份证号") = dr1("身份证号") And dr1( ”学历“ ) <> dr2( "学历" ) Then
‘插入语句，把此时符合条件的”职工信息表“的该行设置为当前行
dr1( “学历” ) = dr2( "学历" )
End If
Next
Next

敬请指教！！

--  作者：有点色
--  发布时间：2017/2/22 22:41:00
--
Dim dr1 As Row = Tables("职工信息表").Current
For Each dr2 As DataRow In DataTables("职工资料").Select("")
    If dr2("身份证号") = dr1("身份证号") And dr1( "学历" ) <> dr2( "学历" ) Then
        \'插入语句,把此时符合条件的"职工信息表"的该行设置为当前行
        dr1( "学历" ) = dr2( "学历" )
    End If
Next

--  作者：zhangchi96
--  发布时间：2017/2/23 8:07:00
--
请问，我是遍历“职工信息表”的所有行，当找到符合条件的行时，把该行作为当前行，
你的代码改了后，是对鼠标选定了“职工信息表”某一行，然后按当前行去找，到符合条件的行，
那么“职工信息表”的其他行没有去选的就不找了

假如“职工信息表”中有第8行，第10行是符合条件的，我想在寻找的过程中，光标自动跳到第8行，然后跳到第10行，因为我在 dr1( "学历" ) = dr2( "学历" )后有个弹出对话框 MessageBox.Show( dr2("姓名") & "的信息被替换")，让使用者逐条看到正在替换数据的行

--  作者：有点蓝
--  发布时间：2017/2/23 9:15:00
--
For Each dr1 As Row In Tables("职工信息表").Rows
    Dim dr2 As DataRow = DataTables("职工资料").Find("身份证号=\'" & dr1("身份证号") & "\' and 学历 <> \'" & dr1( "学历" ) & "\'")
    If dr2 IsNot Nothing Then
        Tables("职工信息表").Position = dr1.Index
        dr1( "学历" ) = dr2( "学历" )
        MessageBox.Show( dr1("姓名") & "的信息被替换"),
    End If
Next