以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  如何设置当前行  (http://www.foxtable.com/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