0
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
4

1 回答 1

1

你可以试试这个:

Dim qqq = (from bs in bd.FILEs select bs.RETURN_DATE).First()
于 2013-11-07T05:31:02.213 回答