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


  共有3671人关注过本帖平板打印复制链接

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

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


加好友 发短信
等级:一尾狐 帖子:415 积分:2896 威望: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

 回到顶部