VBɾ³ýµÄÎÊÌâ¡£´íÎóÔõôÐ޸ģ¿
VB2005
ÎÒдµÄ´úÂ룺
Private Sub ɾ³ýÓû§ÐÅÏ¢_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As SqlConnection = New SqlConnection(strconn)
conn.Open()
Dim strSQL As String = "Select * from WUser"
Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, conn)
da.Fill(dt)
conn.Close()
DataGridView1.DataSource = dt
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'µÃµ½datagridviewÖиıäµÄÊý¾ÝÐÐλÖÃ
Dim nindex As Integer = DataGridView1.SelectedRows(-1).Index() '´ÓÊý¾ÝÔ´ÖÐɾ³ýÖ¸¶¨ÐÐ
dt.Rows(nindex).Delete()
Dim conn As New SqlConnection(strconn)
conn.Open()
Dim strSQL As String = "Select * from WUser"
Dim da As SqlDataAdapter = New SqlDataAdapter(strSQL, conn)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim change As Integer = da.Update(dt)
Ïà¹ØÎÊ´ð£º
ÔÚvbÕâ±à³ÌÀïËÆºõÓкܶàµÄ¶«Î÷ÊÇÏàÁªÏµµÄ£¬ÎªÊ²Ã´ÓÐЩÈ˶ÔvbµÄ±à³ÌÃþ²»µ½Í·ÄÔ°¡£¡²¢ÇÒÓÐЩʺÜÈÝÒ׵쬵«ÊÇÈ´°ÑËüÃǵĴúÂë±ä³É¸´ÔÓ£¬Ò²È¥ÏëһЩ²»ÄÜʵÏֵĶ«Î÷°¡£¡
û·ÖÁË£¬Â¥Ö÷¶àÀ´µã·Ö£¡
À´½Óµã·Ö
......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ΪʲôÎÒÏëÑ»·×Ô¶¯·¢ËÍÓʼþµÄʱºò,¾ÍÖ»ÓеÚÒ»·âÄÜ×Ô¶¯·¢ËÍ,ÆäËüºóÃæµÄÓʼþ¶¼Ö»ÄÜ´´½¨,²»ÄÜ×Ô¶¯·¢ËÍ
Private Sub send_mail_Click() '·¢ËÍÓʼþ֪ͨ
Do While Not TDBG_Dept.EOF
If A> ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......