If Tables("服务总").Current.Locked = False Then
If DataTables("服务成交").DataCols("编号").Rows.Count <0 Then
' Tables("服务总.服务成交").Rows.Count <0 Then
'Tables("服务总.服务成交").current.IsNull("服务项目_数量") = False Then
MessageBox.show("请先增销售成交!")
Else
If Tables("服务总.服务明细").Rows.Count >0 Then
If Tables("服务总.服务明细").current.isnull("项目") Then
msgbox("填写项目")
ElseIf Tables("服务总.服务明细").current.isnull("单位") Then
msgbox("填写单位")
ElseIf Tables("服务总.服务明细").current.isnull("数量") Then
msgbox("填写数量")
ElseIf Tables("服务总.服务明细").current.isnull("服务人员") Then
msgbox("填写服务人员")
Return
Else
Tables("服务总.服务明细").Addnew()
End If
Else
Tables("服务总.服务明细").Addnew()
End If
End If
Else
MessageBox.show("完成后的单子不能增加了,先新建订单,在增销售成交后增服务!")
End If