'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 & "条数据"