是不是下面这样与不行呀?为什么如果有十条记录,则显示的十条记录都是第一条记录的数据?
Set mrc = ExecuteSQL(txtSQL , MsgText)
If mrc.RecordCount > 0 Then
Set RptCourse.DataSource = mrc1
RptCourse.Sections("Section1").Controls("Label3").Caption = mrc.Fields(1)
RptCourse.Sections("Section1").Controls("Label5").Caption = mrc.Fields(2)
RptCourse.Sections("Section1").Controls("Label6").Caption = mrc.Fields(4)
RptCourse.Sections("Section1").Controls("Label11").Caption = mrc.Fields(5)
End If
Set mrc = ExecuteSQL(txtSQL , MsgText)
If mrc.RecordCount > 0 Then
Set RptCourse.DataSource = mrc1
RptCourse.Sections("Section1").Controls("Label3").Caption = mrc.Fields(1)
RptCourse.Sections("Section1").Controls("Label5").Caption = mrc.Fields(2)
RptCourse.Sections("Section1").Controls("Label6").Caption = mrc.Fields(4)
RptCourse.Sections("Section1").Controls("Label11").Caption = mrc.Fields(5)
End If
解决方案 »
- 请问如何设置按钮对应MEDIAPLAYER的暂停?
- 如何实现EXCEL直接转换成北大方正的小样文件
- 关于创建activex dll的问题
- 在VB中实现打印预览
- 问:如何让语句中断?
- 我在使用datagrid时的问题
- 各位大俠.怎麼在查詢中區分大小寫.比如: adoPrimaryRS.Open "SELECT costsize.artcode_no FROM costsize , db, adOpenStatic, adLockOptimistic
- 又一个初级问题,VB字符串的截取?
- Mostar要走了,哪位大侠曾经帮助过俺,还没给分的请来取分。一次可能加不完,以后只要上网就给您累计分数……
- 如果一个数据库中含有两个相同的表如何动态的合并
- 远程访问SQL SERVER数据库
- 求助﹕在ACCESS中編製VBA程序﹐程序越來越大﹐越來越慢﹐大家有沒有什麼好的解決辦法﹖
还有改label控件为rpttextbox试试
我是第一次写datareport,在网上查的别人用label,为什么我的就不行了呢