<P>Dim sqlBuilder As New System.Text.StringBuilder<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strRes As String = String.Empty<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each ctrl As Control In Me.Controls<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If TypeOf ctrl Is TextBox Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sqlBuilder.Replace(sqlBuilder.ToString(), Nothing)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sqlBuilder.AppendLine("If Trim(txt{0}ST.Text) &lt;&gt; """" Then")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sqlBuilder.AppendLine("aSql = aSql &amp; "" and {0} ='"" &amp; txt{1}{2}.Text &amp; ""'""")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; sqlBuilder.AppendLine("End If")<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Dim strFieldName As String = ctrl.Name.Substring(3, ctrl.Name.Length - 3)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; strRes &amp;= String.Format(sqlBuilder.ToString, strFieldName)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next</P> <P mce_keep="true">&nbsp;</P> <P>我的窗体有很多很多的TextBox控件，我想用一个宏来生成供Sql语句用的代码</P> <P>如下</P>If Trim(txtSample.Text) &lt;&gt; "" Then<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; aSql = aSql &amp; " and Sample &gt;= '" &amp; txtSample.Text &amp; "'"<BR>End If <P mce_keep="true">其实我上面的代码就能实现，可是带在调试的时候在即时窗口里粘出来，比较麻烦。<BR>在宏里面能遍历我的Winform或者Webform吗？</P>