主题：下拉输入窗口出错

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

以下内容需要积分达到135000才可以浏览

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

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

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

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

此主题相关图片如下：spximage2.jpg

 

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

佩服佩服！

根本就想不到啊。什么时候才能自己搞定啊？！