代码改为：
Dim r As DataRow = Tables("主窗口_table1").Current.DataRow
Dim wz As Integer = Tables("业务").FindRow(dr)
if wz >= 0 Then
Tables("业务").position = wz
End if
另一个方法：
http://www.foxtable.com/help/topics/2311.htm
加好友 
发短信
Post By：2012/7/19 12:38:00 [显示全部帖子]
