Dim txt1 As Date = e.form.Controls("datetimepicker1").Text
Dim txt2 As Date = e.form.Controls("datetimepicker2").Text
Dim txt3 As String = e.form.Controls("TextBox5").Text
Dim txt4 As String = e.form.Controls("TextBox6").Text
Dim txt5 As String = e.form.Controls("开店窗口_Table1.店铺编号").Text
Dim txt6 As String = e.form.Controls("开店窗口_Table1.合同性质").Text
Dim dr As DataRow
If dr("店铺编号") = txt5 AndAlso dr("合同性质") = txt6 Then
dr("开店时间") = txt1
dr("合同时间") = txt2
dr("预估金额") = txt3
dr("合同金额") = txt4
End If
DataTables("长摊明细表").Save()
Forms("开店窗口").Close()