这段代码有什么问题吗？【ok啦】 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：未命名6.jpg

[此贴子已经被作者于2009-9-20 13:52:02编辑过]

以下是引用cpayinyuan在2009-9-18 20:46:00的发言：

估计是FindRow的格式你用得不正确，它正确的格式是：

FindRow(Expression, PositionStart, Wrap)，

估计是后面的两个参数不允许为空吧？

那就来个标准格式：应该是 SQLQuery 的问题吧？

图片点击可在新窗口打开查看此主题相关图片如下：未命名7.jpg

[此贴子已经被作者于2009-9-18 20:56:50编辑过]

以下是引用程兴刚在2009-9-18 20:56:00的发言：
dim r as row = Tables("职务变动人员基础资料查询转移_table1").Rows(Tables("职务变动人员基础资料查询转移_table1").Position)

试试！

还是提示一样的错误~
另外，程版你的：Tables("职务变动人员基础资料查询转移_table1").Position) t 要大写 T

[此贴子已经被作者于2009-9-18 21:07:52编辑过]

以下是引用cpayinyuan在2009-9-18 21:11:00的发言：

看5楼是否正确。

谢谢，Tables("职务变动基础信息").findRow("[姓名]='" & r("姓名") & "'" , 0 , True) 可以了～

以下是引用czy在2009-9-18 21:32:00的发言：
楼主贴这样一段代码让人很难猜究竟想达到什么效果，楼上是猜的（窗口table和主表同步焦点）。
当然如果仅仅是同步，可以直接在PositionChanged事件中设置代码：
Tables("职务变动基础信息").position = e.Table.position

怪我没有多说清楚一下， 1楼代码的目的是：选择窗口Table中的一行后，要定位到对应表的姓名相同的行的位置。
5楼的代码 Tables("职务变动基础信息").findRow("[姓名]='" & r("姓名") & "'" , 0 , True) 可以了，

我的Tables("职务变动基础信息").FindRow("[姓名] = '" & r("姓名") & "' , .Position + 1, True ") 引号位置错了，另外.Position 要改成 Tables("职务变动基础信息").Position（因为我在命令窗口中测试的）。这样：：：也对：
Tables("职务变动基础信息").FindRow("[姓名] = '" & r("姓名") & "' ", Tables("职务变动基础信息").Position + 1, True )

另外：窗口中的Table是一个SQLQuery

[此贴子已经被作者于2009-9-18 21:53:11编辑过]

主题：这段代码有什么问题吗？【ok啦】