主题：SQLQUERY里面分页的问题

'Dim dt As DataTable

'Dim cmd As New SQLCommand

'cmd.Connection Name = "sql data"

'cmd.CommandText = "select * fro m [tbl_品牌表] where [_Identify] is null"

'Dim dst1 As Table = Tables("主记录窗口_Table1")

'dst1.DataSource  = cmd.ExecuteReader()

DataTables("主记录窗口_Table1").LoadFilter = ""  '一定要清除加载条件

DataTables("主记录窗口_Table1").LoadTop = 40  '每页加载00行

'-----------------------------------------------

'以下设置态动分页列表

Dim comvalue As String 'Combolist的变量值

Dim ttpages As String '分页最大值

ttpages =  DataTables("主记录窗口_Table1").TotalPages

For i As Integer =1 To ttpages

    If i <> ttpages Then

       comvalue =comvalue & i & "|"

    Else

        comvalue =comvalue & i

    End If

Next

Dim cmb As WinForm.ComboBox = e.form.Controls("ComboBox2")

cmb.ComboList = comvalue

'------------------------------------------------------

'以下是模拟点击第一页按钮

Dim btn As WinForm.Button =  e.Form.Controls("Button5")

btn.PerformClick()

'-------------------------------------------------------

'以下动态显示本表行数

Dim count = DataTables("主记录窗口_Table1").sqlCompute("count([_identify])") '统计行数

e.Form.Controls("Label6").text = "共" & count & "条数据"