Function isParameterExists(sheetName, paramName)

isParameterExists = FALSE
ParamTotal = DataTable.GetSheet("Global").GetParameterCount

For i = 1 To ParamTotal
value = DataTable.GetSheet("Global").GetParameter(i).Name
Msgbox value
If strComp(paramName,value)=0 Then
isParameterExists=TRUE
Exit Function
End if 
Next
End Function 
'Example:
If isParameterExists("Global","hh") then
msgbox "Patameter exists"
Else
msgbox "Patameter does not exist"

<Your statements>


End if

Hi ravi Please run above sript in qtp.
is it works?

Try for this,

Val = DataTable("UserId", dtGlobalSheet)
If val=false Then
    msgbox "Parameter does not exist"
Else
    msgbox "Parameter exists" 
End If

Answer 1 is good if you don't have a lot of data to write to
the data table. I sometimes have 20 columns to write to and
to check for the column each time before writing the data
can take 2 or more seconds each (40 seconds for the entire
row)...way to long if doing a repetitive task.

Answer 3 won't work because you will get a QTP error on the
line "Val = DataTable("UserId", dtGlobalSheet)" if the
column doesn't exist. But you can use that error to make a
very speedy function to find out if the column exists:

If COM_DoesDataTableColumnExist("Global","Column1") Then
   ''Column Exists
Else
   ''Column Does Not Exist
End If

Public Function COM_DoesDataTableColumnExist(ByVal
strSheetName,ByVal strColumnName)
	Dim blnReturnValue
	Dim strTestColumn
	
	Err.Clear
	On Error Resume Next
	strTestColumn =
DataTable.GetSheet(strSheetName).GetParameter(strColumnName).Name

	If Err <> 0 Then
		blnReturnValue = False
	Else
		blnReturnValue = True
	End If
	Err.Clear

	COM_DoesDataTableColumnExist = blnReturnValue
End Function