Private Sub DataReport_Initialize()
cn.Open "provider=msdasql;dsn=jw;uid=sa;pwd=274008;"
ado.Open "select 本币金额 from f_jjbkgl where id=90", cn, adOpenStatic, adLockReadOnly
Set Dr.DataSource = ado
If ado.EOF = False Then
Dr.Sections(1).Controls("Text1").Text = ado.fields(0)
End If
End Sub
报了一个错:下标越界.
针对:Dr.Sections(1).Controls("Text1").Text = ado.fields(0)
还望解答.谢谢!
cn.Open "provider=msdasql;dsn=jw;uid=sa;pwd=274008;"
ado.Open "select 本币金额 from f_jjbkgl where id=90", cn, adOpenStatic, adLockReadOnly
Set Dr.DataSource = ado
If ado.EOF = False Then
Dr.Sections(1).Controls("Text1").Text = ado.fields(0)
End If
End Sub
报了一个错:下标越界.
针对:Dr.Sections(1).Controls("Text1").Text = ado.fields(0)
还望解答.谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货