主题：[求助]“表A”和“表B”同有一列“客户”列，当“表B”的客户数据发生改变时，“表A”的相应客户信息也同步改变，不使用关联表，如何写代码？

CurrentChanged事件

Dim cr As Row = e.Table.Current
If cr IsNot Nothing Then
    Dim idx As Integer = Tables("信息表").FindRow("客户 = '" & cr("客户") & "'")
    If idx >= 0 Then
        Tables("信息表").Position = idx
    End If
End If

 是CurrentChanged事件。

 如果写在dataColChanged事件，这样写

If e.DataCol.name = "客户" Then
    Dim idx As Integer = Tables("信息表").FindRow("客户 = '" & e.DataRow("客户") & "'")
    If idx >= 0 Then
        Tables("信息表").Position = idx
    End If
End If

没问题啊

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

 你以后问问题，要说清楚明白，你要问金额列的值为什么不对。

If e.DataCol.name = "客户" Then
    Dim idx As Integer = Tables("信息表").FindRow("客户 = '" & e.DataRow("客户") & "'")
    If idx >= 0 Then
        Tables("信息表").Position = idx
    End If
End If

If e.DataCol.name = "金额" AndAlso Forms("信息表窗口").Opened Then
    Forms("信息表窗口").Controls("RecordGrid1").refresh
End If

If Forms("信息表窗口").Opened Then
    Select Case e.DataCol.name
        Case "金额", "其余", "其余"
            Forms("信息表窗口").Controls("RecordGrid1").refresh
    End Select
End If