- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 老师B表如何引用A表里的数据并自动填充？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=141314)
-- 发布时间：2019/9/26 14:00:00
-- 老师B表如何引用A表里的数据并自动填充？
A表字段：产品|价格
B表字段：产品|价格
窗口有15个CheckBox，分别对应了销售最好的5个产品
如何实现：判断分别勾选了哪个CheckBox，
然后将CheckBox对应的A表中的产品名称提取出来
对应A表的价格，点击窗口的提交按钮后，录入到B表中，选几个录几条。
绕的有点晕 谢谢老师
[此贴子已经被作者于2019/9/26 14:47:54编辑过]
-- 发布时间：2019/9/26 14:54:00
--
尝试用CheckedComboBox实现，代码不知道怎么写~因为选中完之后他所有值都跑到一个框里了，我的需求是能分别录入到B表中，谢谢老师了
-- 发布时间：2019/9/26 14:55:00
--
上传实例说明
-- 发布时间：2019/9/26 15:15:00
--
上传了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.foxdb |
[此贴子已经被作者于2019/9/26 15:14:43编辑过]
-- 发布时间：2019/9/26 15:17:00
--
就是想快速的录入价格，因为衣服价格都是固定的，每次手动填很耽误事，所以想用复选框的方式直接选中之后直接添加记录到销售表里，选几个填几行这样
-- 发布时间：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
-- 发布时间：2019/9/26 15:57:00
--
老师如果在这个基础上，想在窗体里再增加2个记录款式的购买数量，也是和之前规则一样，同步写入到B表中，又应该怎么写啊？试了好多遍循环里写的每次添加数量，行数都对不上，谢谢老师
实例已上传
[此贴子已经被作者于2019/9/27 13:05:03编辑过]
-- 发布时间：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编辑过]
-- 发布时间：2019/9/27 13:07:00
--
求老师指点
-- 发布时间：2019/9/27 13:15:00
--
好像可以了，搞定了