差最后一个功能，我的PROJECT 就要完成了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If Forms("历史服务").Opened Then
    With DataTables("派工表")
        Dim r As Row = e.Table.Current
        If r IsNot Nothing Then
            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 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

主题：差最后一个功能，我的PROJECT 就要完成了