Dim numrows As Integer
Dim numcells As Integer
Dim i As Integer = 0
Dim j As Integer = 0
Dim row As Integer = 0
Dim r As HtmlTableRow
Dim c As HtmlTableCell
numrows = CInt(Text1.Value)
numcells = CInt(text2.value)
For j = 0 To numrows - 1
r = New HtmlTableRow()
If (row Mod 2 <> 0) Then
r.BgColor = "#afeeee"
End If
row += 1
For i = 0 To numcells - 1
c = New HtmlTableCell()
c.Controls.Add(New LiteralControl("行" & j + 1 & ",列" & i + 1))
r.Cells.Add(c)
Next i
table1.rows.add(r)
Next j

numrows = CInt(Text1.Value)
numcells = CInt(text2.value)这两行有错，谁帮下　vb我不懂

yeah，VB我也不懂。我好开心啊
哇塞 我不懂VB哦~~我牛吧~
你们会VB的都是白痴哦~鄙视你们会VB的
我不懂VB这是我骄傲的资本~楼主，你就是这个意思吧？

btw 这两行都没错，检查一下text1.text是不是为""

记得 "" 当然没法转换为Integer类型（你指望转换成几啊？）

[此贴子已经被作者于2007-8-14 16:58:46编辑过]

if isnumeric(Text1.Value) then
numrows = Cint(Text1.Value)
else
msgbox ("请给Text1输入正确的数值")
exit sub
end if

text2同样处理

类型转换得合理
dim str as string =""
dim a as integer =cint(str)

相当于

dim str1 as string ="dfdfdfdf"
dim a1 as integer =cint(str)

a1=????

不懂VB是很牛的事情么……

换成这样试试
numrows = CInt(Text1.text)
numcells = CInt(text2.text)

如果所输内容是空，或者Text1.Text中有不附合整数类型者，应在转换之前作相应处理。