我是PHP编程的新手,但这看起来非常简单。然而,每次我运行这个时,我都陷入无限循环。在我当前的测试Option Explicit
Dim fName As Range
Sub Worksheet_SelectionChange(ByVal Target As Range)
With Worksheets("Sheet2").Range("I:I")
Set fName = .Find(what:=Left(Target, InStr(Target, "/")), LookAt:=xlPart)
End With
If Not Intersect(Target, Range("E:E")) Is Nothing Then
Application.EnableEvents = False
With Intersect(Target, Range("E:E"))
.Offset(, -7).Value = fName.Value
End With
End If
End Sub
中,$facility
是一个数组。任何帮助,将不胜感激。似乎问题不一定是无限循环,网页陷入持续加载状态,直到我杀死进程,所以我假设无限循环。
size=2
答案 0 :(得分:0)
您希望在连接之前确保您的字符串变量已初始化。
$whereClause = '';
$size = sizeof($facility);
for($i = 1; $i<$size; $i++) {
$whereClause .= ' OR c.facilityAbbr = "'.$facility[$i].'"';
}
正如我在他评论中所提到的那样,如何缩短界限,我会在这里发布,以便更有意义。
另外,请注意这是一个infinate循环的唯一方法是$facility
是一个包含无限项的数组,这是值得怀疑的。您可能希望打开错误报告,将其放在该代码之前的某处。
ini_set('display_errors', 1);
您还可以使用Foreach循环,这更适合IMO,而且代码更少。
$whereClause = '';
foreach( $facility as $item ){
$whereClause .= ' OR c.facilityAbbr = "'.$item.'"';
}