主题：实时显示

If Forms("历史服务").Opened Then
With DataTables("派工表")
Dim r As Row = e.Table.Current
Dim s As String = "客户信息 like '" & r("客户信息").split(" ")(0) & "%'"
If r.Isnull("客户信息") Then s = "1=2"
Dim drs As List(Of DataRow) = e.Table.DataTable.Select(s & " And _Identify <> " & r("_Identify") & " And 日期 <= #" & r("日期") & "#", "日期 Desc")
If drs.Count > 0 Then
Forms("历史服务").Controls("TextBox1").Text = drs(0)("客户信息")
Forms("历史服务").Controls("TextBox2").Text = drs(0)("服务内容")
Forms("历史服务").Controls("TextBox3").Text = drs(0)("日期")
Forms("历史服务").Controls("TextBox8").Text = drs(0)("备注")
Else
Forms("历史服务").Controls("TextBox2").Text = Nothing
Forms("历史服务").Controls("TextBox3").Text = Nothing
Forms("历史服务").Controls("TextBox1").Text = Nothing
Forms("历史服务").Controls("TextBox8").Text = Nothing
End If
If drs.Count > 1 Then
Forms("历史服务").Controls("TextBox4").Text = drs(1)("服务内容")
Forms("历史服务").Controls("TextBox5").Text = drs(1)("日期")
Else
Forms("历史服务").Controls("TextBox4").Text = Nothing
Forms("历史服务").Controls("TextBox5").Text = Nothing
End If
If drs.Count > 2 Then
Forms("历史服务").Controls("TextBox6").Text = drs(2)("服务内容")
Forms("历史服务").Controls("TextBox7").Text = drs(2)("日期")
Else
Forms("历史服务").Controls("TextBox6").Text = Nothing
Forms("历史服务").Controls("TextBox7").Text = Nothing
End If
End With
If E.Table.Current Is Nothing Then
Forms("历史服务").Controls("TextBox8").Text = Nothing
Forms("历史服务").Controls("TextBox1").Text = Nothing
Forms("历史服务").Controls("TextBox9").Text = Nothing
Else
Forms("历史服务").Controls("TextBox1").Text = e.Table.current("客户信息")
Forms("历史服务").Controls("TextBox8").Text = e.Table.current("备注")
Forms("历史服务").Controls("TextBox9").Text = e.Table.current("签约终止日")
End If
End If