主题：三个表引用问题

呃，再find一次就行

If e.DataCol.Name = "客户编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("下单日期") = Nothing
        e.DataRow("客户名称") = Nothing
        e.DataRow("订单金额") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("订单").Find("[客户编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("下单日期") = dr("下单日期")
            e.DataRow("客户名称") = dr("客户名称")
            e.DataRow("订单金额") = dr("订单金额")
            e.DataRow("第三列") = Nothing
        End If
        dr = DataTables("表C").Find("[客户编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("第三列") = dr("第三列")
        End If
    End If
End If

没有引过来，说明这个条件不成立

dr = DataTables("订单增收").Find("[客户编号] = '" & e.NewValue & "'")

 弹出看一下 msgbox("[客户编号] = '" & e.NewValue & "'")