主题：关联与增加行,部分列不能填充内容

销售明细表和订单出库明细表，通过订单号建立关联，希望新增一订单明细，并输入订单号、产品型号，数量等列内容后，能自动为该订单增加一个订单出库明细，销售明细表的DataColChanged事件代码如下：

Select Case e.DataCol.Name
    Case "订单号"
        If e.DataRow.IsNull("订单号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("订单出库明细表").Count = 0 Then '而且无订单出库明细
                'systemready = False
                'If e.DataRow("已提数量") <> 0 Then
                Dim r1 As DataRow = DataTables("订单出库明细表").AddNew()
                r1("订单号") = e.DataRow("订单号")
                r1("提货日期") = Date.Today
                r1("数量") = e.DataRow("数量")
                r1("已提数量") = e.DataRow("已提数量")
                r1.Save()
                'systemready = True
                'End If
            End If
        End If
End Select

 

现在问题是：数量列和已提数量列没有数据

 

此主题相关图片如下：20180526134852.png

Select Case e.DataCol.Name
    Case "订单号","数量","已提数量"
        If e.DataRow.IsNull("订单号") = False AndAlso e.DataRow.IsNull("数量") = False AndAlso e.DataRow.IsNull("已提数量") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("订单出库明细表").Count = 0 Then '而且无订单出库明细
                Dim r1 As DataRow = DataTables("订单出库明细表").AddNew()
                r1("订单号") = e.DataRow("订单号")
                r1("提货日期") = Date.Today
                r1("数量") = e.DataRow("数量")
                r1("已提数量") = e.DataRow("已提数量")
                r1.Save()
            End If
        End If
End Select