主题：关联问题

 

各位! 我有一问题一直解决不了.

我有兩个表, 分别是表A和表B, 主要寫法是首先在表A筛选数據,

 

Dim drs As List(of DataRow)

drs = DataTables("表A").Select("nditemnumber = 'MOQ' ")

For Each dr As DataRow In drs

If dr("datetoforwarder") = Nothing

For Each dr1 As DataRow In DataTables("表B").datarows

DataTables("表A").replacefor("datetoforwarder", dr1("datetoforwarder") , "customerpo = '" & dr1("customerpo") & "'")

Next

End If

Next

 

我在表A中筛选了八笔数據, 之后想通過customerpo关联到表B的customerpo拿到表B的datetoforwarder内的日期放回表A的datetoforwarder中. 我觉得上面程序表答好像有问题.

 

还有一个问题是筛选日期是空的用表达式是怎様实行…谢谢

Dim drs As List(of DataRow)

drs = DataTables("表A").Select("nditemnumber = 'MOQ' ")

 

For Each dr As DataRow In drs
   
    If dr.IsNull("datetoforwarder") Then
        Dim fdr As DataRow = DataTables("表B").Find("customerpo = '" & dr("customerpo") & "'")
        If fdr IsNot Nothing Then
            dr("datetoforwarder") = fdr("datetoforwarder")
        End If
    End If
   
Next

 

谢谢! 问题好像解决了. 我之前是用Foxpro去开发的, 接觸Foxtable后发覚功能强大, 但跟我之前寫程序的概念分别好大..

是的,还是有区别的,所以你需要按部就班学习一下狐表帮助,不能盲目套用以前的经验

 

 

希望Foxtable将来会有更多视频教程和不同的编程例子可供參考! 谢谢.