Imports System.Data.SqlClient
Public Class Form1
Dim bd As New lDataContext
Dim qqq = From bs In bd.FILEs
Select bs.RETURN_DATE
Take 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If qqq = Date.Today.Date Then
TextBox1.Text = "yes"
Else
TextBox1.Text = "no"
End If
End Sub
End Class
问问题
44 次