- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 分别填充父表和子表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96846)
-- 发布时间：2017/2/28 22:45:00
-- 分别填充父表和子表
老师，我想通过点击“入库单号”后，弹窗弹出入库单父表和子表，其中入库单父表的单号字段填充到对应的退货入库单父表“入库单号”子段中
入库单子表对应的“商品编码，商品名称，商品类别，计量单位”填充到对应的退货入库单子表对应的子段中，其中弹窗我用了splitcontainer控件，
上下分别是table1和table2两个控件，现在点击弹窗上面的确定按钮，提示找不到table1
代码如下，
Dim tbl As Table =Tables("table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("单号")
End If
Dim t As Table = Tables("入库单子表")
For Each r As Row In Tables("table2").GetCheckedRows
Dim nr As Row = t.AddNew
nr("商品编码") = r("商品编码")
nr("商品名称") = r("商品名称")
nr("商品分类") = r("商品分类")
nr("计量单位") = r("计量单位")
Next
Forms("入库单父子表弹窗").close()
此主题相关图片如下：1.jpg
-- 发布时间：2017/2/28 22:56:00
--
Dim tbl As Table =Tables("窗口名称_table1")
-- 发布时间：2017/3/1 9:04:00
--
老师你好，如果把副本设置为ture的时候，在点击入库单父表table1的某行数据时，入库单子表table2不能对应的关联切换
-- 发布时间：2017/3/1 9:15:00
--
参考：http://www.foxtable.com/webhelp/scr/2222.htm
-- 发布时间：2017/3/1 13:36:00
--
-- 发布时间：2017/3/1 15:30:00
--
Dim t As Table = e.Form.Controls("Table1").Table
With e.Table
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "单号 = \'" & .Current("单号") & "\'"
End If
End With
-- 发布时间：2017/3/1 16:05:00
--
此主题相关图片如下：2.jpg
此主题相关图片如下：3.jpg
-- 发布时间：2017/3/1 17:11:00
--
你表名改成对应的
Dim t As Table = e.Form.Controls("Table2").Table
With e.Table
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "单号 = \'" & .Current("单号") & "\'"
End If
End With
-- 发布时间：2017/3/1 17:23:00
--
老师你好，父表光标处在那一行，窗口中对应的子表才有数据，但是在窗口中上下移动光标选择，并不能改变对应的子表数据
此主题相关图片如下：12.jpg
此主题相关图片如下：13.jpg
-- 发布时间：2017/3/1 18:19:00
--
代码你写到CurrentChanged事件了吗？加入代码，看弹出什么
msgbox(t.Filter)