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


  共有2336人关注过本帖树形打印复制链接

主题:怎么跨表定位行

帅哥哟,离线,有人找我吗?
swagger
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5356 威望:0 精华:0 注册:2012/8/25 20:50:00
怎么跨表定位行  发帖心情 Post By:2018/2/12 19:08:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
swagger
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5356 威望: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 积分:5356 威望:0 精华:0 注册:2012/8/25 20:50:00
  发帖心情 Post By:2018/2/12 19:29:00 [只看该作者]


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

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105486 积分:536421 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/12 20:19:00 [只看该作者]


Dim r As Row = Tables("订单").Current
If r IsNot Nothing Then
    Dim po As Integer = Tables("客户").FindRow("客户名称  = " & r("客户名称") & "'")
    If po >= 0 Then
        Tables("客户").Position = po
    End If
End If

如果只是要判断就没有必要定位了
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
End If

 回到顶部
帅哥哟,离线,有人找我吗?
swagger
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:689 积分:5356 威望: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
End If


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

如果是 要判断同时符合“公司名称”和“公司名称”, 上述代码该怎么写? Dim dr As DataRow = DataTables("客户").Find("客户名称  = " & r("客户名称") & "'","公司名称  = " & r("公司名称") & "'") ?
[此贴子已经被作者于2018/2/23 12:31:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/23 12:33:00 [只看该作者]

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

 

 

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

 回到顶部