- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 查询并填充到关联表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43061)
-- 发布时间：2013/11/28 18:32:00
-- 查询并填充到关联表
请帮我看一下这个代码要怎么改。
Dim f As New Filler
Dim kh As WinForm.ComboBox = e.Form.Controls("款号")
f.SourceTable = DataTables("工序") \'指定数据来源
f.SourceCols = "工序,工价" \'指定数据来源列
f.DataTable = DataTables("卡号.卡号工序") \'指定数据接收表
f.DataCols = "工序,工价" \'指定数据接收列
F.Filter= "款号= \'" & kh. Text & "\'"
f.Fill() \'填充数据
备注：卡号.卡号工序是关联表，不属于dataTable.
-- 发布时间：2013/11/28 19:34:00
--
试试这样
Dim f As New Filler
Dim kh As WinForm.ComboBox = e.Form.Controls("款号")
f.SourceTable = DataTables("工序") \'指定数据来源
f.SourceCols = "工序,工价" \'指定数据来源列
f.DataTable = DataTables("卡号工序") \'指定数据接收表
f.DataCols = "工序,工价" \'指定数据接收列
F.Filter= "款号= \'" & kh. Text & "\'"
f.Fill() \'填充数据
-- 发布时间：2013/11/28 22:20:00
--
这样可以，但是填充的是表，关联的字段不会自动填写。
-- 发布时间：2013/11/28 22:22:00
--
你也把把关联的字段一起写到列里不就行了？
f.SourceCols = "工序,工价,xxx,xxx,xxx" \'指定数据来源列
-- 发布时间：2013/11/28 22:24:00
--
帮我看一下，窗里的工序开卡，执行按钮代码
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.zip |
-- 发布时间：2013/11/28 22:28:00
--
还是请你帮我看一下文件里的。
-- 发布时间：2013/11/28 22:39:00
--
一样这样写
Dim kh As WinForm.ComboBox = e.Form.Controls("款号")
f.SourceTable = DataTables("工序") \'指定数据来源
f.SourceCols = "工序,工价,_Identify,工序号" \'指定数据来源列
f.DataTable = DataTables("卡号工序") \'指定数据接收表
f.DataCols = "工序,工价,卡号,工序号" \'指定数据接收列
F.Filter= "款号= \'" & kh. Text & "\'"
f.Fill() \'填充数据
-- 发布时间：2013/11/28 22:50:00
--
_Identify的这个值不在 工序 表里，是在表 卡号 的列里的 卡号
-- 发布时间：2013/11/28 22:59:00
--
代码改成这样就行了
Dim kh As WinForm.ComboBox = e.Form.Controls("款号")
For Each dr As DataRow In DataTables("工序").Select("款号= \'" & kh. Text & "\'")
Dim nr As Row = Tables("卡号.卡号工序").addnew
nr("工序") = dr("工序")
nr("工价") = dr("工价")
nr("工序号") = dr("工序号")
Next
-- 发布时间：2013/11/28 23:10:00
--
好了，太谢谢了