社区

京东店铺
淘宝店铺
当当店铺
拼多多店铺

APP下载

扫描下载官方APP

VIP会员

VB答疑区

+关注

已有23人关注

+发表新帖

所属版块： VB答疑区

ak47

学分:0

+关注

私信

立即签到

版块推荐

十万火急，请求帮助。

发表在VB答疑区 2008-01-17

是否精华是否

版块置顶: 是否

DataEnvironment1.rsCommand1.Open "select * from 总表 where pn= & Text1 & "
DataReport1.Show
DataEnvironment1.rsCommand1.Close
使用以上语句无法改变报表内容。

分享到：

关注

支持(0)

反对(0)

精彩评论 1

vbsoldier

学分：0 LV1

+关注

私信

2008-01-19

沙发

您好，请参考如下代码。
Private Sub Command1_Click()

    If DataEnvironment1.Connection1.State = adStateOpen Then
        DataEnvironment1.Connection1.Close
    End If
    DataEnvironment1.Connection1.Open
    DataEnvironment1.Commands(1).ActiveConnection = DataEnvironment1.Connection1
    DataEnvironment1.Commands(1).CommandText = "select top 1 * from 工资表 "
    DataReport1.Show
    DataReport1.Refresh
End Sub

Private Sub Command2_Click()
    If DataEnvironment1.Connection1.State = adStateOpen Then
        DataEnvironment1.Connection1.Close
    End If
    DataEnvironment1.Connection1.Open
    DataEnvironment1.Commands(1).ActiveConnection = DataEnvironment1.Connection1
    DataEnvironment1.Commands(1).CommandText = "select top 2 * from 工资表 "
    DataReport1.Show
    DataReport1.Refresh
End Sub

支持(0)

反对(0)

首页上一页 1 下一页尾页 1 条记录 1/1页