老师，我在设计下拉输入窗口时出错，请帮我看看错在哪里。怎么都找不出原因，晕死！

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

点击浏览该文件:foxtable项目.rar

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

点击浏览该文件:xinda datebase.zip

If  e.DataRow.GetChildRows("执行动态").Count > 0 Then
    e.DataRow.GetChildRows("执行动态")(0)("欠交数量") = e.DataRow("计划数量")
End If

搞定！

还有就是当执行动态为0时，写入合同明细，昨天还可以的，今天又不行了。我好像没有改什么有关的代码啊。

写在前面

Select Case e.DataCol.Name                    \'采用流水账设计,自动计算是否交完货
    Case "欠交数量"
        If e.DataRow ("欠交数量") = 0 Then
            Dim nma() As String = {"计划编号","车号","入库单号"}  \'A表数据来源列
            Dim nmb() As String = {"计划编号","车号","入库单号"}  \'B表数据接收列
            Dim drr As DataRow = DataTables("合同明细").AddNew
            For i As Integer = 0 To nma.Length - 1
                drr(nmb(i)) = e.DataRow(nma(i))
            Next
        End If
    Case "计划编号","生产数量","实际交货数量","欠交数量"
        Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [计划编号] = \'" & mr("计划编号") & "\'", "[_SortKey] Desc")
        If dr Is Nothing Then
            Dim drr As DataRow = DataTables("订单").find("计划编号=\'" & mr("计划编号") & "\'")
            mr("欠交数量") = drr("计划数量") - mr("实际交货数量")
            dr = mr
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [计划编号] = \'" & dr("计划编号") & "\'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            drs(i)("欠交数量") = drs(i-1)("欠交数量") - drs(i)("实际交货数量")
        Next
        If e.DataCol.Name = "计划编号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [计划编号] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
            If dr Is Nothing Then
                dr = e.DataTable.Find("[计划编号] = \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    Dim drr As DataRow = DataTables("订单").find("计划编号=\'" & mr("计划编号") & "\'")
                    dr("欠交数量") = drr("计划数量") - dr("实际交货数量")
                End If
            End If
            If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [计划编号] = \'" & dr("计划编号") & "\'", "[_SortKey]")
                Dim drr As DataRow = DataTables("订单").find("计划编号=\'" & dr("计划编号") & "\'")
                If drr IsNot Nothing Then
                    drs(0)("欠交数量")= drr("计划数量")
                End If
                For i As Integer = 1 To drs.Count - 1
                    drs(i)("欠交数量") = drs(i-1)("欠交数量") - drs(i)("实际交货数量")
                Next
            End If
        End If
End Select