表格和TextBox01同时添加到关联表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表格和TextBox01同时添加到关联表

共有3783人关注过本帖树形打印复制链接主题：表格和TextBox01同时添加到关联表

yangwenghd

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

表格和TextBox01同时添加到关联表 发帖心情

Post By：2015/1/5 21:14:00 [显示全部帖子]

谢谢大家能帮我看看这个程序吗？

Dim dr As DataRow = DataTables("订单附表").addnew

dr("业务往来_产品型号")=e.form.controls("左边表选择的行").text

dr("业务往来_售价")=e.form.controls("TextBox01").text

dr("业务往来_数量")=e.form.controls("TextBox02").text

dr("业务往来_方式")=e.form.controls("ComboBox5").text

msgbox("添加成功")

能帮我改一下吗？把("订单附表") 是表A 关联的表

此主题相关图片如下：添加产品.jpg

yangwenghd

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/1/5 21:30:00 [显示全部帖子]

感谢感谢

如果添加的是关联表

是不是在

Dim dr As DataRow = DataTables("表B.订单附表").addnew

就可以了谢谢

yangwenghd

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00

Post By：2015/1/5 21:42:00 [显示全部帖子]

感谢感谢能在帮我看看吗？

dr("业务往来_产品型号") = DataTables("企业档案窗口_Table2").Current("型号")

业务往来_产品型号等于企业档案窗口_Table2 表，型号列鼠标选择的内容

主题：表格和TextBox01同时添加到关联表