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

Dim de As String
With Forms("供应商编辑").Controls("txname1")
    If .Value IsNot Nothing Then
        de = .Value
        With Tables("供应商表")
            Dim idx As Integer = Tables("供应商表").findRow("供应商公司 = '" & de & "'")
            If idx >= 0 Then
                Tables("供应商表").Current.Delete
                .Position = idx '则选择该行
            Else
                Dim dr As Row = Tables("供应商表").AddNew
                dr("供应商公司") = de
            End If
        End With
    End If
End With

主题：[求助]录入定位问题