主题：这是为什么呢？引用数据时 数据存在但不能引用

请先把代码改成这样，避免运行的时候出错：

 

Dim dr As DataRow
Dim dm As DataTable = DataTables("订单主明细")
Dim dl As String = "[部件图号] = '" & e.DataRow("部件图号") & "'"
If e.DataCol.Name = "部件图号" Then
    dr = dm.Find(dl & "And [装配进度] <> '已出库'"& "And [计划客户] Is Null")
    If dr IsNot Nothing Then
        e.DataRow("唯一码") = dr("唯一码")
    End If
    dm.ReplaceFor("计划客户", 2, "[唯一码] = '" & e.DataRow("唯一码") & "'" )
End If

 

至于没有引用到数据，一般是本来就不存在符合条件的行，如果你觉得有符合条件的行，但是没有引用到，请具体指出是哪一行。

改
 
dr = dm.Find(dl & " And [装配进度] <> '已出库' Or [装配进度] Is Null And [计划客户] Is Null")

呵呵，是的，狐表并不难，不过对于那些不肯看帮助的人，确实难。

功能虽多，主要精力放在《FoxTable编程》即可，这里一通，全部都通。

基础差的，《编程基础》也要多看两次。

 

完善一下：

 

dr = dm.Find(dl & " And ([装配进度] <> '已出库' Or [装配进度] Is Null) And [计划客户] Is Null")

确实，凡事就怕不敢入门，入门了就会发现不过如此。

我见过太多的人，自己将自己吓到了。