Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分别填充父表和子表


  共有2440人关注过本帖树形打印复制链接

主题：分别填充父表和子表
帅哥哟，离线，有人找我吗？
k931931
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		分别填充父表和子表  发帖心情 Post By：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:48:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/1 9:04:00 [显示全部帖子]

老师你好，如果把副本设置为ture的时候，在点击入库单父表table1的某行数据时，入库单子表table2不能对应的关联切换
需要在currentchanged执行一段什么样的过滤代码呢？
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/1 13:36:00 [显示全部帖子]

老师你好，我在table1的currentchanged事件中增加了以下代码
但是依然实现不了我想要的父表与子表同步的功能，请老师指点，谢谢。

Dim t As Table = Tables("入库单父子表弹窗_Table1")
With Tables("入库单父表.入库单子表")
If .Current Is Nothing Then
    t.Filter = "False"
Else
    t.Filter = "单号 = " & .Current("单号")
End If
End With

[此贴子已经被作者于2017/3/1 13:36:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/1 16:05:00 [显示全部帖子]

老师你好，你给我的代码我测试了，不能在父表中选择，而且只出来了一行，能实现
下面的效果吗？父表上下随意选择，子表根据父表的信息，也相应的变化（根据关联表而来）
副表为ture,用到了单向关联表，还用到了splitcontainer分区面板控件


图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看


测试效果图

图片点击可在新窗口打开查看此主题相关图片如下：3.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/3/1 16:07:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/1 17:23:00 [显示全部帖子]

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

图片点击可在新窗口打开查看此主题相关图片如下：12.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：13.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/1 19:45:00 [显示全部帖子]

老师你好，是在currentchanged事件中，msgbox(t.Filter)对话框在窗体中随着光标位置改变而改变，和父表的单号数据一致，但是数据表中的光标位置一直不改变，所以并没有关联到对应的子表了，导致在窗体中关联不到。（数据表中的光标并没有随窗体中的光标同步移动）

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170301193147.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2017/3/1 19:46:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/1 21:48:00 [显示全部帖子]

谢谢老师，我以前子表用的是关联子表，现在改为副本子表，父表和子表已经能正常同步了
另外我想通过确定按钮填充到退货入库单的父表和子表中，提示;未将对象引用设置到对象的实例,代码如下

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("入库单父子表弹窗_table2")
Dim i As Integer = t.Current.Index
t.rows(i).Delete
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()

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170301214333.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
k931931
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：170 积分：1372 威望：0 精华：0 注册：2016/12/28 19:32:00 		  发帖心情 Post By：2017/3/2 11:01:00 [显示全部帖子]

谢谢，已经解决

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询