主题：[求助]

CellButtonClick事件

If e.Col.Name = "客户" Then
    Dim wz As Integer = Tables("客户信息表").FindRow("客户 = '" & e.Table.Current("客户") & "'")
    If wz >= 0 Then
        Tables("客户信息表").Position = wz
    End If
    e.Cancel = True '取消默认动作
    Forms("客户信息表窗口").Open()
End If

DataColChanged事件

If e.DataCol.name = "客户" AndAlso e.NewValue > "" Then
    Dim fdr As DataRow = DataTables("客户信息表").find("客户 = '" & e.DataRow("客户") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("客户信息表").AddNew
        fdr("客户") = e.DataRow("客户")
    End If
End If