以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关联表  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129402)
--  作者：admin22327
--  发布时间：2018/12/27 19:55:00
--  关联表
你好，我做了一个入库表，有一个问题
1、保存时，明细表有空白行，怎么删除
2、没有输入供应商的情况下，不能输入明细，怎么解决
3、在输入关联表明细表时，用什么方法可以找到模糊查询到货品信息
 谢谢
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table
--  作者：有点甜
--  发布时间：2018/12/27 20:50:00
--  

1、2、如

 

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:进销存.table

3、参考

 

http://www.foxtable.com/webhelp/scr/2465.htm

 
--  作者：admin22327
--  发布时间：2018/12/27 23:47:00
--  
第二个问题，在没有输入供应商的情况下，任然不能增加明细，（请你把改动的地方说明一下，实在是找不到，谢谢）
第三个问题是我用的关联表，参考您说的那个地方任然不能解决
--  作者：admin22327
--  发布时间：2018/12/28 0:13:00
--  
第一 新增入库单不能增加明细
第二 窗口明细里面不能快捷的找到货品信息，主表李可以实现，怎么解决
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:进销存.table
--  作者：有点甜
--  发布时间：2018/12/28 9:50:00
--  
以下是引用admin22327在2018/12/27 23:47:00的发言：
第二个问题，在没有输入供应商的情况下，任然不能增加明细，（请你把改动的地方说明一下，实在是找不到，谢谢）
第三个问题是我用的关联表，参考您说的那个地方任然不能解决

 

1、必须输入父表数据，才能输入子表数据啊，这个是必须的啊。

 

2、不论是主表还是关联表，都一样设计啊。最后绑定下拉的时候，表名你要改成关联表的表名啊。
--  作者：有点甜
--  发布时间：2018/12/28 9:57:00
--  
以下是引用admin22327在2018/12/28 0:13:00的发言：
第一 新增入库单不能增加明细
第二 窗口明细里面不能快捷的找到货品信息，主表李可以实现，怎么解决

 

1、参考2楼的例子，给你的供应商列赋值啊。

 

2、afterLoad事件

 

Tables("采购主表.采购明细表").Cols("名称").DropForm = "窗口3"

 

窗口3事件代码

 

If e.Selected Then \'如果选择了值
    Dim tbl As Table = Tables("窗口3_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("名称")
        If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else \'如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If
End If
If e.Selected Then \'如果选择了值
    Dim tbl As Table = Tables("窗口3_Table1")
    If tbl.Current IsNot Nothing Then
        e.Form.DropDownBox.Value = tbl.Current("名称")
        e.Form.DropTable.Current("规格") = tbl.Current("规格")
        e.Form.DropTable.Current("单位") = tbl.Current("单位")
         \'Tables("订单").Current("其它列3") = tbl.Current("其它列3")
        If e.Form.DropTable IsNot Nothing Then \'如果是通过表下拉的
            e.Form.DropTable.FinishEditing()
        Else \'如果是通过窗口下拉的
            e.Form.DropDownBox.WriteValue()
        End If
    End If
End If