| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 表A数值框的数据发送到表B对应的列 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98760) |
| -- 作者：jick0526 -- 发布时间：2017/4/6 14:52:00 -- 表A数值框的数据发送到表B对应的列 Dim Result As DialogResult Result = MessageBox.Show("发送表B", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then Dim f As New Filler f.SourceTable = DataTables("表A") f.DataTable = DataTables("表B") f.Distinct = False f.Fill() \'填充数据 End If 老师，上面的代码是我按下按钮会把表A的数据发送到表B，现在我想改为把表A的数值框的数据，发送到表B的表对应 列里，比如表A有“日期”“总额”“数量”三个数值框，按下按钮后这三个数值框的数据会复制到表B的日期列，总额列， 数量列里，这代码要怎么写。
|
| -- 作者：有点蓝 -- 发布时间：2017/4/6 15:43:00 -- Dim Result As DialogResult Result = MessageBox.Show("发送表B", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result = DialogResult.Yes Then Dim f As New Filler f.SourceTable = DataTables("表A") f.SourceCols = "日期,总额,数量" \'指定数据来源列 f.DataTable = DataTables("表B") f.DataCols = "日期,总额,数量" \'指定数据接收列 f.Distinct = False f.Fill() \'填充数据 End If |
| -- 作者：jick0526 -- 发布时间：2017/4/6 18:16:00 -- 老师，不好意思，可能是我没说清楚，我是想要表A主窗口里的数值框里的数据发送到表B的列里，不是数据列发送到数据列，是数值框里的数据发送到另外一个表的数据列里 |
| -- 作者：有点色 -- 发布时间：2017/4/6 19:25:00 -- Dim dt As DataTable = DataTables("表B") Dim ndr As DataRow = dt.addnew ndr("第一列") = e.form.controls("TextBox1").Text ndr("第二列") = e.form.controls("TextBox2").Text |