主题：增加行

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成员，要怎么改？