以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  窗口问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130580)
--  作者：admin22327
--  发布时间：2019/1/25 18:34:00
--  窗口问题
老师好，我想通过窗口解决2个问题，用帮助里行复制和数据同步的代码，反复调试，还是解决不了，请你帮看一下
1、有个下拉窗口“收货单下拉_Table1”，行号为复选框，选中行号，将选中的数据，填入“窗口1-table1”

Select Case e.DataCol.name
    Case "产品编号"
        For Each r As Row In Tables("收货单下拉_Table1").GetCheckedRows

                r = Tables("收货主表.收货明细表").AddNew()

            dr("产品编号") = e.DataRow("产品编号")
            dr("产品名称") = e.DataRow("产品名称")
            dr("产品规格") = e.DataRow("产品规格")
        Else
            dr("产品编号") = e.DataRow("产品编号")
        End If
    Case "产品名称","产品规格"
        Dim dr As DataRow = DataTables("库存").Find("产品编号 = \'" & e.DataRow("产品编号") & "\'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If
End Select


2、下拉窗口“窗口3_table1”,窗口空间为“下拉组合框”，在组合框采用模糊查找，在组合框内加入输入客户名称，如果没有，直接关闭下拉窗口，在那块添加关闭窗口代码呢？代码怎么写？
Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("收货单下拉_Table1")
    If drp.Text = "" Then \'如果内容为空
        tbl.Filter = "" \'显示所有客户
    Else \'否则根据输入内容进行模糊筛选
        Dim txt As String = "\'%" & drp.Text & "%\'"
        tbl.Filter = "客户 Like " & txt & " Or 电话 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
    End If
End If

谢谢

[此贴子已经被作者于2019/1/25 18:37:13编辑过]
--  作者：有点甜
--  发布时间：2019/1/25 19:32:00
--  

 

上传具体实例发上来测试。

 

 
--  作者：admin22327
--  发布时间：2019/1/26 11:07:00
--  
收货单
1、输入客户名称的过程中，如果下来窗口没有找到客户，直接关闭下拉窗口，直接输入，而不是鼠标离开后关闭
2，明细表打开下拉窗口后，选中，然后将选中的行填入到明细表中，我用一楼的代码弄不对
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:租赁站.table

[此贴子已经被作者于2019/1/26 11:07:51编辑过]
--  作者：有点蓝
--  发布时间：2019/1/26 11:43:00
--  
1、确定按钮

Dim nr As Row
For Each r As Row In Tables("收货单下拉_Table1").GetCheckedRows
    nr = Tables("收货主表.收货明细表").AddNew()
    nr("名称") = r("名称")
……
Next

2、

Dim drp As WinForm.DropDownBox = e.sender
If drp.DroppedDown = False  Then drp.OpenDropDown
If drp.DroppedDown Then \'如果下拉窗口已经打开
    Dim tbl As Table = Tables("窗口2_Table1")
    If drp.Text = "" Then \'如果内容为空
        tbl.Filter = "" \'显示所有客户
    Else \'否则根据输入内容进行模糊筛选
        Dim txt As String = "\'%" & drp.Text & "%\'"
        tbl.Filter = "客户 Like " & txt & " Or 电话 Like " & txt & " Or 地址 Like " & txt & " Or 联系人 Like " & txt
        If tbl.Rows.Count = 0 Then
            drp.CloseDropdown()
        End If
    End If
End If
--  作者：admin22327
--  发布时间：2019/1/26 12:35:00
--  
Dim nr As Row
For Each r As Row In Tables("收货单下拉_Table1").GetCheckedRows
    nr = Tables("收货主表.收货明细表").AddNew()
    nr("名称") = r("名称")
……
Next

上面的代码添加的数据不在明细表的当前行，而是下一行，怎么可以从当前行开始添加

 If tbl.Rows.Count = 0 Then
            drp.CloseDropdown()
        End If
把这个代码加上去后 Dropdown 控件只能输入一个字，我想输入的字应该是全部都在的，
[此贴子已经被作者于2019/1/26 12:53:15编辑过]
--  作者：有点蓝
--  发布时间：2019/1/26 12:49:00
--  
Dim nr As Row
Dim idx As Integer = Tables("收货主表.收货明细表").Position
For Each r As Row In Tables("收货单下拉_Table1").GetCheckedRows
    nr = Tables("收货主表.收货明细表").AddNew()
    nr("名称") = r("名称")
    ……
    nr.Move(idx + 1)
    idx = nr.Index
Next
--  作者：admin22327
--  发布时间：2019/1/27 0:40:00
--  
老师，有2个问题
1、收货单窗口明细下拉窗口，怎么判断一下，打开窗口，在租数量小于0的不显示
2、收货单回写到发货单的数量是按照单号统计的，怎么才可以实现按单号/名称/规格 分开统计，以便
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:租赁站.table

实时得到每单货物的不同名称不同规格的在租数量
3、收货单窗口输入客户时，下拉窗打开时只显示该客户的发货单信息
[此贴子已经被作者于2019/1/27 1:33:48编辑过]
--  作者：有点甜
--  发布时间：2019/1/27 12:08:00
--  

1、3

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:租赁站.table

 

2、不清楚你表达的意思，请截图说明如何操作，最后得到什么结果。
--  作者：admin22327
--  发布时间：2019/1/27 19:42:00
--  
打开下拉窗口，分组计算在租数量，分组是是按单号，名称，规格，首先按单号分，其次是按名称分组，最后按规格分组，就是帮助说的分组统计，不知道应该怎么弄
[此贴子已经被作者于2019/1/27 22:39:13编辑过]
--  作者：有点甜
--  发布时间：2019/1/27 21:54:00
--  

dropdownopened事件，写代码

 

Dim txt As String = e.Form.DropDownBox.Text
Dim tbl As Table = Tables("收货单下拉_Table1")

Dim g As New GroupTableBuilder("统计表1", DataTables("发货明细表"))
g.Groups.AddDef("日期", DateGroupEnum.none)
\'g.Groups.AddDef("日期", "月")
g.Groups.AddDef("发货单号")
g.Groups.AddDef("名称")
g.Groups.AddDef("规格")
g.Groups.AddDef("客户")
g.Groups.AddDef("单位")
g.Groups.AddDef("单价")
g.Totals.AddDef("发货数量", "发货数量")
g.Totals.AddDef("在租数量", "在租数量")
tbl.DataSource = g.BuildDataSource

Dim kh As String = e.Form.DropDownBox.Form.controls("dropbox1").text
If txt = "" Then
    tbl.Filter = "在租数量 > 0 and 客户 like \'%" & kh & "%\'"
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "在租数量 > 0 and 客户 like \'%" & kh & "%\' and (发货单号 Like " & txt & " Or 客户 Like " & txt & " Or 名称 Like " & txt & " Or 规格 Like " & txt & ")"
End If
e.Form.DropDownBox.Select()