主题：甜老师，小窗口问题

你的窗口名叫什么，就填什么名字啊

If Forms("窗口1").Opened Then
    With DataTables("派工表")
        Dim dr1 As DataRow = .Find("服务内容 = '" & e.Table.Current("服务内容") & "'","日期 Desc") '找出最后一次订购PD01产品的记录
        Dim dr2 As DataRow = .Find("服务内容 = '" & e.Table.Current("服务内容") & "'","日期 Desc", 1) '找出最后一次订购PD01产品的记录
        Dim dr3 As DataRow = .Find("服务内容 = '" & e.Table.Current("服务内容") & "'","日期 Desc", 2) '找出最后一次订购PD01产品的记录
        Forms("窗口1").Controls("TextBox1").Text = dr1("服务内容")
    End With
End If