- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=68714)
-- 发布时间：2015/5/23 0:23:00
-- [求助]
我是一刚刚接触狐表的菜鸟，求助各位高手：在该项目中,如何实现表B直接引用表A对应列的数据，具体如何操作，
此主题相关图片如下：求助.jpg
望各位高手不吝赐教，先谢谢了
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.foxdb |
。
[此贴子已经被作者于2015/5/23 1:08:31编辑过]
-- 发布时间：2015/5/23 1:21:00
--
用填充的办法
dim f As New
Filler
f.SourceTable =
DataTables("表A") \'指定数据来源
f.SourceCols = "姓名,一月,二月" \'指定数据来源列
f.DataTable = DataTables("表B") \'指定数据接收表
f.DataCols =
"姓名,一月,二月" \'指定数据接收列
f.Fill()
\'填充数据
-- 发布时间：2015/5/23 2:03:00
-- 回复：（sloyy）用填充的办法dim f As New Fillerf.S...
还是不行，执行完后整列都填充了，晕死
您能否在项目里操作下，感谢！
-- 发布时间：2015/5/23 8:43:00
--
参考帮助http://www.foxtable.com/help/topics/1451.htm
If e.DataCol.Name = "姓名" Then
If e.NewValue Is Nothing Then \'
e.DataRow("一月") = Nothing \'
If e.NewValue Is Nothing Then \'
e.DataRow("一月") = Nothing \'
e.DataRow("二月") = Nothing \'
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("表A").Find("[姓名] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("一月") = dr("一月")
Else
Dim dr As DataRow
\'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
dr = DataTables("表A").Find("[姓名] = \'" & e.NewValue & "\'")
If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
e.DataRow("一月") = dr("一月")
e.DataRow("二月") = dr("二月")
End If
End If
End If
End If
End If
-- 发布时间：2015/5/30 16:27:00
--
感谢BIN