主题：分别填充父表和子表

老师，我想通过点击“入库单号”后，弹窗弹出入库单父表和子表，其中入库单父表的单号字段填充到对应的退货入库单父表“入库单号”子段中

入库单子表对应的“商品编码，商品名称，商品类别，计量单位”填充到对应的退货入库单子表对应的子段中，其中弹窗我用了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

Dim tbl As Table =Tables("窗口名称_table1")

老师你好，如果把副本设置为ture的时候，在点击入库单父表table1的某行数据时，入库单子表table2不能对应的关联切换

参考：http://www.foxtable.com/webhelp/scr/2222.htm

 

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

此主题相关图片如下：2.jpg

你表名改成对应的

 

老师你好，父表光标处在那一行，窗口中对应的子表才有数据，但是在窗口中上下移动光标选择，并不能改变对应的子表数据

代码你写到CurrentChanged事件了吗？加入代码，看弹出什么

 

msgbox(t.Filter)