求救高人
我的代码运行哪儿有错啊？请指正，谢谢！
代码如下：
Imports System.Data.SqlClient
Public Class Webtus1
Inherits System.Web.UI.Page
Dim StuTable As Object
Function CreateDataSet(ByVal strSQL As String, ByVal FileName As String, ByVal TableName As String) As DataSet
Dim conn As New SqlConnection()
Dim cmd As New SqlCommand()
conn.ConnectionString = " Data Source=RFTU-58C014ED1B;Initial Catalog=sqldatatjj;Integrated Security=True"
conn.Open()
cmd.Connection = conn
cmd.CommandText = strSQL
Dim objAdpt As New SqlDataAdapter(cmd)
Dim DS As New DataSet()
objAdpt.Fill(DS, TableName) '表名
CreateDataSet = DS
conn.Close()
End Function
Sub DisplayDS(ByVal DS As DataSet)
Dim i, j As Integer
Dim TabRow As TableRow = New TableRow()
Dim TabCell As TableCell
For i = 0 To DS.Tables("sqldataxss").Columns.Count - 1
TabCell = New TableCell()
TabCell.Text = DS.Tables("sqldataxss").Columns(i).ToString 't
TabRow.Cells.Add(TabCell)
Next '
StuTable.Visible = True
StuTable.Rows.Add(TabRow)
For i = 0 To DS.Tables("sqldataxss").Rows.Count - 1
TabRow = New TableRow()
For j = 0 To DS.Tables("sqldataxss").Columns.Count - 1
TabCell = New TableCell()
If DS.Tables("sqldataxss").Rows(i).IsNull(j) Then
TabCell.Text = "空值"
Else
TabCell.Text = DS.Tables("sqldataxss").Rows(i)(j).ToString
End If
TabRow.Cells.Add(TabCell)
Next
StuTable.Rows.Add(TabRow)
Next
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
End Sub
Protected Sub BtnSubmit_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnSubmit.Click
Dim DS As New DataSet()
DS = CreateDataSet("select * from sqldataxss", "sqldatatjj.mdf", "sqldataxss")
Dim DTable As DataTable = DS.Tables(0)
Dim TabRow As DataRow = DTable.NewRow()
If TxtNo.Text <> "学号" Then
TabRow("学号") = TxtNo.Text
End If
If TxtName.Text <> "姓名" Then
TabRow("姓名") = TxtName.Text
End If
If TextBox1.Text <> "出生年月" Then
TabRow("出生年月") = TextBox1.Text
End If
If TextBox2.Text <> "所在系" Then
TabRow("所在系") = TextBox2.Text
End If
If TextBox3.Text <> "" Then
TabRow("总学分") = CInt(TextBox3.Text)
End If
If RBtnSex1.Checked Then
TabRow("性别") = False
Else
TabRow("性别") = False
End If
DTable.Rows.Add(TabRow)
DisplayDS(DS)
End Sub
End Class
错误提示：未设置对象变量或 With 块变量。
行 35: Next '
行 36:
行 37: StuTable.Visible = True ‘本行是红色标记
行 38: StuTable.Rows.Add(TabRow)
行 39: For i = 0 To DS.Tables("sqldataxss").Rows.Count - 1
------解决方案--------------------
晕，vb.....你换成sql看看在SQLServer上能不能运行成功，如果可以就换成存储过程，然后vb调用存储过程
