Set rs6 = New ADODB.Recordset
rs6.CursorLocation = adUseClient
rs6.Open "select * from 公文內容資料表", cn, adOpenDynamic, adLockOptimistic
m正本 = m正本 & Trim(Text1.Text)
m副本 = m副本 & Trim(Text2.Text)
rs6!正本 = m正本
rs6!副本 = "m副本"
rs6.Update
Printer.PaperSize = 9
Printer.Orientation = 2
CrystalReport1.Destination =rptToWindow
CrystalReport1.Action = 1
以上當輸入text1及text2 後更動rs6資料內容,但印出來資料仍是在設定crystalreport 時的資料內容,並沒有變動,是不是有那個地方需要設定?
請高手解圍!謝謝 !

全站熱搜

vbqa 發表在 痞客邦 留言(4) 人氣()