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
If isParameterExists("Global","hh") then
msgbox "Patameter exists"
Else
msgbox "Patameter does not exist"
End if
or
on error resume next
val=DataTable("ParamName",dtGlobalSheet)
if err.number<> 0 then
Print Parameter does not exist
else
Print Parameter exists
end if
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
If isParameterExists("Global","hh") then
msgbox "Patameter exists"
Else
msgbox "Patameter does not exist"
End if
or
on error resume next
val=DataTable("ParamName",dtGlobalSheet)
if err.number<> 0 then
Print Parameter does not exist
else
Print Parameter exists
end if
No comments:
Post a Comment
Note: only a member of this blog may post a comment.