Reply to thread

Message

[QUOTE="rex028, post: 3330, member: 1199"]
[CODE]	Private Function Getim()
 
		If cbSearchAll.Checked Then
 
			objDS.Clear()
			objDS = objUser.Search_tblUser("Select * from tbl_ITEM ")
 
			Getrecord()
 
 
		ElseIf cboisearchFD.Text = "" Then
			objDS.Clear()
			objDS = objUser.Search_tblUser("Select * from tbl_ITEM where Item_No = '" & txtItemNo.Text & "' or Item_Type = '" & cboItemType.Text & "' or Item_Amount " & cboitemAmount.Text & " ")
			Getrecord()
		Else
			fromday = cboisearchFD.Text & "/" & cboisearchFM.Text & "/" & cboisearchFY.Text
			today = cboisearchTD.Text & "/" & cboisearchTM.Text & "/" & cboisearchTY.Text
 
			objDS.Clear()
			objDS = objUser.Search_tblUser("Select * from tbl_ITEM where Expire_Day Between #" & fromday & "# and #" & today & "#")
			Getrecord()
 
		End If
 
	End Function [/CODE] 
[CODE] Private Function Getrecord()
		Try
			If objDS.Tables(0).Rows.Count <= 0 Then
				MsgBox("Record Not Found")
			Else
				dgimsearch.DataSource = objDS.Tables(0)
			End If
		Catch ex As Exception
		End Try
	End Function[/CODE] 
 
Why it displays every record even there is no input ???????
[/QUOTE]

Verification