1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
Function createTable(ByVal strSQL As String, ByVal strConn As String, ByVal intFrom As Integer, ByVal intTo As Integer) As Integer
Dim newDS As New Data.DataSet
ds = ws.getDataSetSQL(strSQL, strConn)
Dim tblnew As Data.DataRow() = ds.Tables(0).Select()
Dim ndt As New Data.DataTable
ndt = ds.Tables(0).Clone
For i As Integer = intFrom To intTo
ndt.ImportRow(tblnew(i))
Next
newDS.Tables.Add(ndt)
GridView1.DataSource = newDS
GridView1.DataBind()
End Function
|