- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询窗口中，双击上屏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=184708)
-- 发布时间：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
-- 发布时间：2022/12/24 14:19:00
--
参考：http://www.foxtable.com/webhelp/topics/1533.htm
-- 发布时间：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
-- 发布时间：2022/12/25 19:42:00
--
Dim dr As Row = Tables("零件库领料单_出库").current
Dim dr2 As Row = Tables("零件库领料单_采购订单号").current
dr("采购订单号") = dr2("采购订单号")
dr("供应商名称") = dr2("供应商名称")
……