- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]没想到竟然能上网，请教个关于列自动填入的问题。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40690)
-- 发布时间：2013/9/26 18:43:00
-- [求助]没想到竟然能上网，请教个关于列自动填入的问题。
本以为这里不能上网，没想到竟然有移动WIFI，又能跟工程师们联系了
，开心。
请教问题：如何将表B中EF列添加的数据自动添加到表A的EF列中？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目4.foxdb |
-- 发布时间：2013/9/26 19:11:00
--
填充的条件是什么呢？AB表A列相同的就填充？
-- 发布时间：2013/9/26 19:12:00
--
楼主参考帮助文档。
-- 发布时间：2013/9/26 19:25:00
--
哦，不是列名一样就填充，需要指定一下。
-- 发布时间：2013/9/26 19:36:00
--
呃……条件是什么？根据什么判断比较，然后填充？
再有，是用一个按钮全部填充，还是修改表里某行数据就改行的数据？
-- 发布时间：2013/9/26 19:57:00
--
表B的"一"“二”列分别对应表A的“A”“B”列，在窗口中对表B进行添加行操作，那么根据前述对应进行判断，有就修改，没有的话对表A进行添加行操作。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4.foxdb |
此主题相关图片如下：qq截图20130926195216.png
[此贴子已经被作者于2013-9-26 19:58:24编辑过]
-- 发布时间：2013/9/26 20:59:00
--
如下例子。代码写在表属性->事件->datarowchanged
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目4 (1).foxdb |
-- 发布时间：2013/9/26 21:04:00
--
有点甜老师。
我使用的是：
If e.DataCol.Name = "产品编号" Then
Dim nms() As String = {"品名","型号","规格","单价"}
If
e.NewValue
Is
Nothing
Then
For
Each
nm
As
String
In
nms
e.DataRow(nm) = Nothing
Next
Else
Dim
dr
As
DataRow
dr = DataTables("产品").Find("[产品编号] = \'" &
e.NewValue
& "\'")
If dr
IsNot Nothing
For Each nm As String In nms
e.DataRow(nm) = dr(nm)
Next
End If
End If
End If
这个代码，现在的问题是，如果有的列名并不一样，如何写代码?是否必须使用您例子里的那个方法？
-- 发布时间：2013/9/26 21:32:00
--
定义两个数组，代码类似
dim nms1() as string = {"e", "f"}
dim nms2() as string = {"三", "四"}
for i as integer = 0 to mns1.length - 1
fdr(nms1(i)) = e.datarow(nms2(i))
next
[此贴子已经被作者于2013-9-26 21:32:25编辑过]
-- 发布时间：2013/9/26 21:32:00
--
顶下