Select Case e.DataCol.Name Case "客户" If e.DataRow.IsNull("客户") = False Then If e.DataRow.GetChildRows("客户").Count = 0 Then Dim dr As DataRow = DataTables("客户").AddNew() dr("客户") = e.DataRow("客户") End If End IfEnd Select
在订单表输入客户时,能否在客户表没有就新增一行及客户,如客户表里有就不用增加一行直接选用已有客户。