查询窗口中，双击上屏 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有6687人关注过本帖树形打印复制链接主题：查询窗口中，双击上屏

nuoyan89

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

等级：二尾狐帖子：529 积分：3684 威望：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

nuoyan89

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

等级：二尾狐帖子：529 积分：3684 威望：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())

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)

主题：查询窗口中，双击上屏