此主题相关图片如下：3.jpg

可以实现以下功能吗？

单击“客户ID”列的某个单元格，能弹出客户的具体信息。Customer_List表就是客户信息表，包括客户ID，客户名，地址等其他信息。

可以，Click、MouseEnterCell，都行。

CellButtonClick 事件

MessageBox.show("客户名是 : " e.Row("客户名") & "   地址 : " & e.Row("地址"))

此主题相关图片如下：4.jpg

“客户ID”列是自定义列表项目，点击...就会弹出“选择客户”窗口，如图，我想再加一个功能，单击该单元格时，弹出“选择客户”窗口，并可以定位到相应的Customer_List表中的行，

例如点击“客户ID”列的128，能够自动定位到第14行（Id为128的行），怎么实现？？以下代码没有实现此功能

If e.Col.Name = "CustomerId" Then
    \'    MessageBox.Show("id:"& e.Row("CustomerId"))
    Dim s As Integer = e.Row("CustomerId")
    With Tables("Customer_List")
        Dim r As Integer
        r = .Find("s",0,"Id",False,False,False)
        If r > - 1 Then \'如果找到符合条件的行
            .Position = r \'则选择该行
        End If
        Forms("选择客户").open
    End With
End If

s是变量，不要双引号了：

r = .Find(s,0,"Id",False,False,False)