主题：求助，上一页的内部函数编写

Dim cmd As new sqlcommand
cmd. c
cmd.commandtext = "select count(*) from {销售出库单主表}"
Dim count As Integer = cmd.ExecuteScalar
With DataTables("销售出库单主表")
    If .LoadPage > 0 Then
        .LoadPage = .LoadPage - 1
        .Load()
Else
.LoadPage = 0
MessageBox.Show("已是第一页!","提示!")
    End If
e.Form.Controls("页码信息").Text= "共[" & .TotalPages & "] 页 ,当前为第[" & .LoadPage+1 & "]页,共[" & count & "]条数据"
End With
If DataTables("销售出库单主表").DataRows.Count = 0 Then '如果订单表没有数据
    DataTables("销售出库单子表").LoadFilter = "_Identify Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables("销售出库单主表").DataRows
        ids = ids & ",'" & dr("出库单号") & "'"
    Next
    ids= ids.Trim(",")
    DataTables("销售出库单子表").LoadFilter = "出库单号 In (" & ids & ")"
End If
DataTables("销售出库单子表").Load()

以上是普通代码

=======================================

Dim tbn As String = Args(0)'主表名
Dim tbn1 As String = Args(1)'子表名
Dim cn As String = Args(2)'关联列名
Dim fmn As String = Args(3)'窗口名
Dim cmd As new sqlcommand
cmd. c
cmd.commandtext = "select count(*) from {" & tbn & "}"
Dim count As Integer = cmd.ExecuteScalar
With DataTables(tbn)
    If .LoadPage < .TotalPages - 1 Then
        .LoadPage = .LoadPage + 1
        .Load()
    Else
        .LoadPage = .TotalPages -1
        MessageBox.Show("已是最后一页!","提示")
    End If
    'e.Form.Controls("页码信息").Text= "共[" & .TotalPages & "] 页 ,当前为第[" & .LoadPage+1 & "]页,共[" & count & "]条数据"
    Forms(fmn).Controls("页码信息").Text= "共[" & .TotalPages & "] 页 ,当前为第[" & .LoadPage+1 & "]页,共[" & count & "]条数据"
End With
If DataTables(tbn).DataRows.Count = 0 Then '如果订单表没有数据
    DataTables(tbn1).LoadFilter = "_Identify Is Null" '不加载订单明细
Else
    Dim ids As String
    For Each dr As DataRow In DataTables(tbn).DataRows
        ids = ids & ",'" & dr(cn) & "'"
    Next
    ids= ids.Trim(",")
    DataTables(tbn1).LoadFilter = "cn In (" & ids & ")"
End If
DataTables(tbn1).Load()
Return Nothing

TKS！