|
If Tables("二级维护登记表").Current Is Nothing Then
msgbox("表数据为空")
Else
If Tables("二级维护登记表").Current.IsNull("客户车牌") Then
MessageBox.Show("请输入客户车牌号码!")
Else
Dim dt As DataTable
Dim dr As DataRow
Dim pdr = Tables("二级维护登记表").Current.DataRow.GetParentRow("客户表")
If pdr Is Nothing Then
msgbox("不存在父表")
Else
dr = DataTables("客户表").Find("客户车牌 = '" & pdr("客户车牌") & "'")
If dr IsNot Nothing Then
If forms("二级维护登记").Opened Then
forms("二级维护登记").Controls("TextBox1").value=dr("客户编号")
forms("二级维护登记").Controls("TextBox10").value=dr("客户单位")
forms("二级维护登记").Controls("TextBox11").value= dr("客户名称")
forms("二级维护登记").Controls("TextBox12").value= dr("客户车牌")
forms("二级维护登记").Controls("TextBox13").value= dr("车辆型号")
forms("二级维护登记").Controls("TextBox14").value=dr("车辆识别号")
forms("二级维护登记").Controls("TextBox15").value=dr("发动机编号")
forms("二级维护登记").Controls("TextBox16").value=dr("联系电话")
Else
Return
End If
End If
end if
End If
end if
| 
加好友 
发短信
Post By：2018/1/5 14:14:00 [显示全部帖子]
