Foxtable(狐表)用户栏目专家坐堂 → 查询窗口中,双击上屏


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

主题:查询窗口中,双击上屏

美女呀,离线,留言给我吧!
nuoyan89
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
查询窗口中,双击上屏  发帖心情 Post By:2022/12/24 14:14:00 [只看该作者]

老师,我有两个窗口表(窗口A,窗口B),我用以下代码是在窗口B中查询出的内容,然后在窗口B中双击对应的行后,成品编码和成品描述填充到窗口A中吗?请帮忙看看,谢谢
Dim Filter1 As String
With e.Form.Controls("成品编码1")
    If .Value IsNot Nothing Then
        If Filter1 > "" Then
            Filter1 = Filter1 & " And "
        End If
        Filter1 = Filter1 & "成品编码 = '" & .Value & "'"
    End If
End With
If Filter1 > "" Then
    e.Form.controls("Table1").Table.DataTable.LoadPage = 0
    e.Form.controls("Table1").Table.DataTable.LoadFilter = "[入库类型] = '在库' and " & IIf(filter1 > "", filter1, "1=1")
    e.Form.controls("Table1").Table.DataTable.Load
End If

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


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


 回到顶部
美女呀,离线,留言给我吧!
nuoyan89
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:524 积分:3642 威望:0 精华:0 注册:2020/10/9 8:45:00
  发帖心情 Post By:2022/12/25 18:26:00 [只看该作者]

老师,我想在查询出来的窗口中双击对应的行后,采购订单号和采购申请号填充到如图1上图的窗口表中。以下代码不知道哪里有异常,不能按照双击行的信息填充。


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

以下代码写在查询出来的窗口表中双击事件中:
Dim t As Table = Tables("零件库领料单_出库")
Dim Vals As List(Of String())
Vals = DataTables("零件库领料单_采购订单号").GetValues("采购订单号|供应商名称|供应商编码|采购申请号|入库批次|单价|可入库数量")
For i As Integer = 0 To Vals.Count - 1
Dim dr As Row = t.current
    dr("采购订单号") = Vals(i)(0)
    dr("供应商名称") = Vals(i)(1)
    dr("供应商编码") = Vals(i)(2)
    dr("采购申请号") = Vals(i)(3)
    dr("入库批次") = Vals(i)(4)
    dr("单价") = Vals(i)(5)
    dr("可入库数量") = Vals(i)(6)
Next

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


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

Dim dr As Row = Tables("零件库领料单_出库").current
Dim dr2 As Row = Tables("零件库领料单_采购订单号").current
dr("采购订单号") = dr2("采购订单号")
dr("供应商名称") = dr2("供应商名称")
……

 回到顶部