Foxtable(狐表) → 用户栏目 → 专家坐堂 → 老师B表如何引用A表里的数据并自动填充？


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

主题：老师B表如何引用A表里的数据并自动填充？
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		老师B表如何引用A表里的数据并自动填充？  发帖心情 Post By：2019/9/26 14:00:00 [只看该作者]

A表字段：产品|价格
B表字段：产品|价格
窗口有15个CheckBox，分别对应了销售最好的5个产品

如何实现：判断分别勾选了哪个CheckBox，
然后将CheckBox对应的A表中的产品名称提取出来
对应A表的价格，点击窗口的提交按钮后，录入到B表中，选几个录几条。

绕的有点晕   谢谢老师
[此贴子已经被作者于2019/9/26 14:47:54编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/26 14:54:00 [只看该作者]

尝试用CheckedComboBox实现，代码不知道怎么写~因为选中完之后他所有值都跑到一个框里了，我的需求是能分别录入到B表中，谢谢老师了

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/26 14:55:00 [只看该作者]

上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/26 15:15:00 [只看该作者]

上传了
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb

[此贴子已经被作者于2019/9/26 15:14:43编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/26 15:17:00 [只看该作者]

就是想快速的录入价格，因为衣服价格都是固定的，每次手动填很耽误事，所以想用复选框的方式直接选中之后直接添加记录到销售表里，选几个填几行这样

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/9/26 15:47:00 [只看该作者]

For i As Integer = 1 To 5
    Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox" & i)
    If chk.Checked Then
        Dim dr As DataRow = DataTables("价格维护表").Find("名称='" & chk.Text & "'")
        If dr IsNot Nothing Then
            Dim r As Row = Tables("销售记录表").AddNew
            r("名称") = dr("名称")
            r("价格") = dr("价格")
        End If
    End If
Next
 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/26 15:57:00 [只看该作者]

老师如果在这个基础上，想在窗体里再增加2个记录款式的购买数量，也是和之前规则一样，同步写入到B表中，又应该怎么写啊？试了好多遍循环里写的每次添加数量，行数都对不上，谢谢老师

实例已上传

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.foxdb


[此贴子已经被作者于2019/9/27 13:05:03编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/26 16:36:00 [只看该作者]

For i As Integer = 1 To 5
    Dim chk As WinForm.CheckBox = e.Form.Controls("CheckBox" & i)
    If chk.Checked Then
        Dim dr As DataRow = DataTables("价格维护表").Find("名称='" & chk.Text & "'")
        If dr IsNot Nothing Then
            Dim r As Row = Tables("销售记录表").AddNew
            r("名称") = dr("名称")
            r("价格") = dr("价格")
            r("儿童款数量") = dr("儿童款数量")
           r("成人款数量") = dr("成人款数量")
        End If
    End If
Next


不对啊，不知道哪里错了。。。。。
[此贴子已经被作者于2019/9/27 13:06:20编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/27 13:07:00 [只看该作者]

求老师指点

 回到顶部
帅哥哟，离线，有人找我吗？
初心不改再说未来
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：496 积分：3911 威望：0 精华：0 注册：2017/7/19 10:58:00 		  发帖心情 Post By：2019/9/27 13:15:00 [只看该作者]

好像可以了，搞定了

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