從form2 連續印 form1- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
1121

會員總數：246213
討論主題：189782

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> 從form2 連續印 form1

[]

[我要回覆]

從form2 連續印 form1
價值 : 50 QP 點閱數:398 回應數:2

樓主

MStone Lin

0	99
1962	132

發送站內信

請問

我從form2 取出資料庫的資料
之後將資料顯示在 from1 並截圖，列印

我的寫法如下
但讀取至第4個之後就無法正常顯示資料

show 及 close

正確應如何寫嗎?

form2：

Dim sqlstr As String

sqlstr = "SELECT * FROM STUDBASE  ............."

Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("casedataConnectionString").ConnectionString.ToString())
            conn.Open()
            Dim dr As SqlDataReader = Nothing
            Dim cmd As SqlCommand = New SqlCommand(sqlstr, conn)

Try
                dr = cmd.ExecuteReader

While dr.Read

TextBox2.Text = dr("STBASE_STNAME").ToString.Trim

Label1.Text = dr("stbase_schname").ToString.Trim & "-" & dr("STBASE_GRADE").ToString.Trim & "-" & dr("STBASE_CLASS").ToString.Trim & "-" & dr("STBASE_STNO").ToString.Trim & "-" & dr("STBASE_STName").ToString.Trim & "-" & dr("STBASE_STsex").ToString.Trim
                    Label2.Text = dr("STBASE_BCODE").ToString.Trim

Dim obj As New Form1    '放在這宣告，只跑3筆

obj.Label1.Text = Label1.Text
                    obj.Label2.Text = Label2.Text

obj.Show()

System.Threading.Thread.Sleep(3000)  '暫停2秒

End While

Catch ex As Exception

Finally

cmd.Cancel()
                dr.Close()
                conn.Close()
                conn.Dispose()

End Try

form1：

搜尋相關Tags的文章： [ 連續印 ] , [ form ] ,
本篇文章發表於2019-03-21 16:58

1樓

回應

P陳

您有二個 MyBase.Load 會先執行那一個不一定建議您 Form1_show 由Form_LOAD 中去執行

個人會這樣寫

本篇文章回覆於2019-03-22 08:14

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

2樓

回應

P陳

看錯了是Form1_show 不是SHOW ，這二個是不同的

不過二個 Mybase.load 則是不一定執行順序的

本篇文章回覆於2019-03-22 08:17

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.