主题：判断引用多行

老师帮帮忙，实在懂不起，集合中提取数据来赋值

取所有值合在一起吗？

如果是的：

 

If e.DataCol.Name = "第一列" Then 
    Dim flt As String = "第一列 = " & "'" & e.DataRow("第一列") & "'"
    e.DataRow("第二列")= DataTables("表A").GetComboListString("第二列",flt)
    e.DataRow("第三列")= DataTables("表A").GetComboListString("第三列",flt)
    e.DataRow("第四列")= DataTables("表A").GetComboListString("第四列",flt)
End If

9楼我都已经解释得那么详细了,还是无法理解我也爱莫能助了.

老师，不好意思，我没说清楚，是借用A表的数据，判断条件满足后，所有满足条件的多行，填充到表B里，也要想同的行数

看看怎么复制行：
 
http://www.foxtable.com/help/topics/1533.htm

http://www.foxtable.com/help/topics/0680.htm

http://www.foxtable.com/help/topics/2292.htm

 

问题回复的质量，多数时候取决于你提问的质量。
最好自己做个小例子发上来，具体说明问题和需求，很快就有人帮你搞定。
不做例子，至少也要清晰描述问题。

有具体的问题，才有具体的答案，自己多做点，方便想帮你的人，收益还是你自己。

 

If e.DataCol.Name = "第一列" AndAlso e.DataRow("第一列") = True Then
     Dim dr As DataRow = DataTables("表B").AddNew
     For Each dc As DataCol In DataTables("表B").DataCols
         dr(dc.Name) = e.DataRow(dc.Name)
     Next
End If

老师我选用的是这段代码，可是系统一下自动退出了

你道理要干什么，请做个小例子发上来说话。

老师，我想要的结果在表D输入部件图号时，如果表A中有的话就全部借用表A中的全部数据，如果没有，在输入零件图号、零件名称、材质、规格如果表A 中有满足4项条件的就借用其他数据，没有就手工录入

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

另外表D的内容要比表A 要多一些

老师，帮忙看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.table

没明白你的意思? 在表D输入零件图号,如果找到有对应的数据就自动填充列? 如果数据超过一行,填充完这一行后,再自动增加新行填充?