以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 怎么跨表定位行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114669) |
-- 作者:swagger -- 发布时间:2018/2/12 19:08:00 -- 怎么跨表定位行 怎么做到:订单窗口新建订单,用“自定义录入界面”选择客户,然后客户表自动定位在订单选中的客户的行? (目的点击新建订单明细的时候,判断客户行某一列是否符合条件,不合符则不允许新建订单明细) |
-- 作者:swagger -- 发布时间: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 -- 发布时间:2018/2/12 19:29:00 -- [此贴子已经被作者于2018/2/12 19:29:31编辑过]
|
-- 作者:有点蓝 -- 发布时间: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 -- 发布时间: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编辑过]
|
-- 作者:有点甜 -- 发布时间:2018/2/23 12:33:00 -- Dim dr As DataRow = DataTables("客户").Find("客户名称 = \'" & r("客户名称") & "\' and 公司名称 = \'" & r("公司名称") & "\'")
[此贴子已经被作者于2018/2/23 12:33:52编辑过]
|