[求助]求助单击行独立显示内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]求助单击行独立显示内容

共有4518人关注过本帖树形打印复制链接主题：[求助]求助单击行独立显示内容

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 15:52:00 [显示全部帖子]

以下是引用青岛立邦达在2014-7-8 15:39:00的发言：
窗口能蹦出来了，但是确实空内容，不清楚版主说的BindingField 在窗口A哪个地方设置

看了一下，你为什么不绑定字段呢？窗口A在哪里，找不到啊。

参考 http://www.foxtable.com/help/topics/0704.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:07:00 [显示全部帖子]

窗口，代码，自己完善一下

Dim r1 As Row = Tables("检测维修单").Current
Dim r2 As DataRow = DataTables("技术支持部总表").Find("业务编号 = '" & r1("业务编号") & "'")
e.form.controls("终端客户").text = r1("客户")
e.form.controls("终端客户").text = r2("终端客户")

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:39:00 [显示全部帖子]

Dim r1 As Row = Tables("检测维修单").Current

改成

Dim r1 As Row = Tables("检测维修单").Current

If r1 is Nothing Then Return

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 16:47:00 [显示全部帖子]

分开写

Dim r1 As Row = Tables("检测维修单").Current
If r1 IsNot Nothing Then
e.form.controls("终端客户").text = r1("客户")

'其它r1

End If

Dim r2 As DataRow = DataTables("技术支持部总表").Find("业务编号 = '" & r1("业务编号") & "'")
If r2 IsNot Nothing Then
e.form.controls("终端客户").text = r2("终端客户")

'其它r2

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/8 17:05:00 [显示全部帖子]

再改一下

Dim r1 As Row = Tables("检测维修单").Current

If r1 IsNot Nothing Then
    e.form.controls("终端客户").text = r1("客户")

    '其它r1

    Dim r2 As DataRow = DataTables("技术支持部总表").Find("业务编号 = '" & r1("业务编号") & "'")
    If r2 IsNot Nothing Then
        e.form.controls("终端客户").text = r2("终端客户")

'其它r2

End If
End If