可以实现以下功能吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可以实现以下功能吗？

共有3453人关注过本帖树形打印复制链接主题：可以实现以下功能吗？

tina2012

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：2462 威望：0 精华：0 注册：2013/9/23 16:09:00

可以实现以下功能吗？ 发帖心情

Post By：2014/4/10 15:43:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg

可以实现以下功能吗？

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

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/4/10 15:47:00 [只看该作者]

可以，Click、MouseEnterCell，都行。

[此贴子已经被作者于2014-4-10 15:47:33编辑过]

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/4/10 15:48:00 [只看该作者]

CellButtonClick 事件

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

tina2012

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：2462 威望：0 精华：0 注册：2013/9/23 16:09:00

Post By：2014/4/10 16:18:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：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