كود :
Dim id As Integer = (
From x In Me.DeerDataSet.sm
Where x._date.ToString("yyyy/MM/dd") = Now.Date.ToString("yyyy/MM/dd")
Select CInt(x.id)
).FirstOrDefault
Me.SmBindingSource.Filter = "[ID] = " & idيا ليت احد يساعدني ويعدلو بحيث يظهر جميع النتائج
بكم نرتقي ونسأل الله لنا ولكم التوفيق ،،

