怎么跨表定位行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么跨表定位行

共有2351人关注过本帖树形打印复制链接主题：怎么跨表定位行

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

怎么跨表定位行 发帖心情

Post By：2018/2/12 19:08:00 [显示全部帖子]

怎么做到：订单窗口新建订单，用“自定义录入界面”选择客户，然后客户表自动定位在订单选中的客户的行？（目的点击新建订单明细的时候，判断客户行某一列是否符合条件，不合符则不允许新建订单明细）

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2018/2/12 19:17:00 [显示全部帖子]

应该在新建订单明细加入如下类似代码：

Dim dr As DataRow

Dim po As Integer

Dim r As Row = Tables("订单").Current("客户名称")

dr = DataTables("客户").Find("客户名称 = r")

po = Tables("客户").FindRow(dr)

If po >= 0 Then

Tables("客户").Position = po

End If

这个代码应该怎么写？

[此贴子已经被作者于2018/2/12 19:30:14编辑过]

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2018/2/12 19:29:00 [显示全部帖子]

[此贴子已经被作者于2018/2/12 19:29:31编辑过]

swagger

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

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2018/2/23 12:26:00 [显示全部帖子]

Dim r As Row = Tables("订单").Current

If r IsNot Nothing Then

Dim dr As DataRow = DataTables("客户").Find("客户名称 = " & r("客户名称") & "'")

If dr IsNot Nothing AndAlso dr("某列") = "某某值" Then

'判断后的代码处理'

End If

-----------------------

如果是要判断同时符合“公司名称”和“公司名称”，上述代码该怎么写？ Dim dr As DataRow = DataTables("客户").Find("客户名称 = " & r("客户名称") & "'"，"公司名称 = " & r("公司名称") & "'") ？

[此贴子已经被作者于2018/2/23 12:31:41编辑过]

下一主题 >> << 上一主题

主题：怎么跨表定位行