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

我有兩个表, 分别是表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将来会有更多视频教程和不同的编程例子可供參考! 谢谢.