If e.Col.Name = "姓名" Then
bianliangkehuid =Tables("zclxingcheng").current("客户id")
msgbox(bianliangkehuid)
With Tables("userb")
Dim r As Integer
r = .Find( ‘“ & bianliangkehuid & ”’ , .RowSel + 1, "id", False, False, True)
If r > - 1 Then '如果找到符合条件的行
.Position = r '则选择该行
End If
End With
bianliangkehuid是全局变量,是个整数。r = .Find( ‘“ & bianliangkehuid & ”’ , .RowSel + 1, "id", False, False, True) 这句的语法是错误的, 不知道 '" & bianliangkehuid & ”’ 应该改成什么?