[求助] 执行长代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，是否可以将一段代码定义为字符串，然后去执行。如果可以改如何处理？谢谢！

rt1.Cells(t1+tt1+45,0).SpanCols = 10

rt1.Cells(t1+tt1+45,0).Text = "神经系统常规检查"

rt1.Rows(t1+tt1+45).Height = 9

rt1.Rows(t1+tt1+45).Style.BackColor = Color.OliveDrab

rt1.Cells(t1+tt1+45,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center

rt1.Cells(t1+tt1+45,0).Style.TextAlignVert = prt.AlignVertEnum.Center

rt1.Cells(t1+tt1+45,0).Style.Font = New Font("宋体", 12, FontStyle.Bold)

rt1.Rows(t1+tt1+45).Style.GridLines.top = New Prt.LineDef(0.1, Color.Gray)

Dim s9 As String

s9 = " rt1.Cells(t1+tt1+45,0).SpanCols" & " = " & "10" & _

"rt1.Cells(t1+tt1+45,0).Text" & " = " & "神经系统常规检查" & _

"rt1.Rows(t1+tt1+45).Height" & " = " & "9" & _

"rt1.Rows(t1+tt1+45).Style.BackColor = Color.OliveDrab " & _

"rt1.Cells(t1+tt1+45,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center " & _

"rt1.Cells(t1+tt1+45,0).Style.TextAlignVert = prt.AlignVertEnum.Center" & _

"rt1.Cells(t1+tt1+45,0).Style.Font" & " = " & "New Font( " & "宋体" & "," & " 12, FontStyle.Bold) " & _

"rt1.Rows(t1+tt1+45).Style.GridLines.top" & " = " & "New Prt.LineDef(" & "_0.1" & "," & " Color.Gray" & ")"

If s.Contains("神经系统常规") Then

s9 ‘ 执行上面的那段代码，这里改如何写代码

end if

主题：[求助] 执行长代码