主题：增加行

Select Case e.DataCol.Name
    Case "排产"
        If e.DataRow("排产") = True Then
            Dim dr1 As DataRow = DataTables("排产计划").AddNew()
            dr1("内部合同编号") = e.DataRow("内部合同编号")
            dr1("订货单位") = e.DataRow("项目种类")
            dr1("工程项目及名称") = e.DataRow("项目名称")
            dr1("合同总可供销售") = e.DataRow("除税价")
            dr1("已完成产值") = e.DataRow("已入库金额")
            dr1("生产令号") = e.DataRow("生产令号")
            dr1("计划完工日期") = e.DataRow("合同交货日期")
            dr1("可排产数量") = e.DataRow("入库余额")
            dr1.Move(0)
        End If
End Select

想让增加的行始终在第一行，但现在显示错误：Move不是Datarow成员，要怎么改？

改成

Dim dr1 As Row = Tables("排产计划").AddNew()

If e.DataCol.Name = "生产令号" Then
    Dim Filter As String = "[生产令号] = '" & e.NewValue & "'"
    e.DataRow("已入库数量") = DataTables("入库信息").Compute("Sum(当月入库数量)", Filter)
End If

现在表“入库信息”中无此项“生产令号”时，“已入库数量”不显示，想让它自动显示为“0”该怎么改？

e.DataRow("已入库数量") = val(DataTables("入库信息").Compute("Sum(当月入库数量)", Filter))