If e.Form.Controls("DateTimePicker1").Text = "" Then
    MessageBox.Show("检查时间不能为空")
    Return
End If
If e.Form.Controls("DateTimePicker2").Text = "" Then
    MessageBox.Show("强制时间不能为空")
    Return
End If
Tables("强制措施基本情况").AddNew()
Tables("强制措施基本情况").current("检查时间")=e.Form.Controls("DateTimePicker1").text
Tables("强制措施基本情况").current("强制时间")=e.Form.Controls("DateTimePicker2").text
If e.Form.Controls("RadioButton1").Checked = True Then
    Tables("强制措施基本情况").current("强制措施对象_公民")=e.Form.Controls("RadioButton1").text
    Tables("强制措施基本情况").current("强制措施对象_法人")= ""
Else
    Tables("强制措施基本情况").current("强制措施对象_公民")=""
    Tables("强制措施基本情况").current("强制措施对象_法人")= e.Form.Controls("RadioButton2").text
End If
Tables("强制措施基本情况").current("当事人基本情况_公民_姓名")=e.Form.Controls("TextBox1").text
Tables("强制措施基本情况").current("当事人基本情况_公民_身份证号码")=e.Form.Controls("TextBox2").text
Tables("强制措施基本情况").current("当事人基本情况_公民_住址")=e.Form.Controls("TextBox3").text
Tables("强制措施基本情况").current("当事人基本情况_公民_联系电话")=e.Form.Controls("TextBox4").text
Tables("强制措施基本情况").current("当事人基本情况_法人_名称")=e.Form.Controls("TextBox5").text
Tables("强制措施基本情况").current("当事人基本情况_法人_地址")=e.Form.Controls("TextBox6").text
Tables("强制措施基本情况").current("当事人基本情况_法人_法定代表人")=e.Form.Controls("TextBox7").text
Tables("强制措施基本情况").current("当事人基本情况_法人_联系电话")=e.Form.Controls("TextBox8").text
Tables("强制措施基本情况").current("驾驶员基本情况_驾驶员姓名")=e.Form.Controls("TextBox9").text
Tables("强制措施基本情况").current("驾驶员基本情况_驾驶员证件号码")=e.Form.Controls("TEXTBox10").text
Tables("强制措施基本情况").current("驾驶员基本情况_住址")=e.Form.Controls("TextBox11").text
Tables("强制措施基本情况").current("驾驶员基本情况_联系电话")=e.Form.Controls("TextBox12").text
Tables("强制措施基本情况").current("车辆基本情况_车船号牌")=e.Form.Controls("TextBox13").text
Tables("强制措施基本情况").current("车辆基本情况_车牌颜色")=e.Form.Controls("DropBox1").text
Tables("强制措施基本情况").current("车辆基本情况_车船型号")=e.Form.Controls("ComboBox1").text
Tables("强制措施基本情况").current("车辆基本情况_车船籍")=e.Form.Controls("TextBox14").text

以上是窗口1中的一个新增控件

如何在这里加上一段代码基础上将当前行的[案件登记号]单元格中的内容写入窗口2中的Label2中

谢谢指教