- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表格和TextBox01同时添加到关联表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62655)
-- 发布时间：2015/1/5 21:14:00
-- 表格和TextBox01同时添加到关联表
谢谢 大家 能帮我看看这个程序吗？
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
-- 发布时间：2015/1/5 21:15:00
--
dr("业务往来_产品型号") = Tables("某表").Current("型号")
-- 发布时间：2015/1/5 21:30:00
--
感谢 感谢
如果添加的是关联表
是不是在
Dim dr As DataRow = DataTables("表B.订单附表").addnew
就可以了 谢谢
-- 发布时间：2015/1/5 21:32:00
--
Dim dr As Row = Tables("表B.订单附表").addnew
-- 发布时间：2015/1/5 21:42:00
--
感谢 感谢 能在帮我看看吗？
dr("业务往来_产品型号") = DataTables("企业档案窗口_Table2").Current("型号")
业务往来_产品型号等于企业档案窗口_Table2 表，型号列鼠标选择的内容
-- 发布时间：2015/1/5 21:44:00
--
dr("业务往来_产品型号") = Tables("企业档案窗口_Table2").Current("型号")