vb°æÎÞ¸ßÊÖ£¬µÚÈý´Î·¢Ìù:DagaGridView1ÈçºÎÅúÁ¿Ôö¼ÓÐÐ
Ò»¸öc/s³ÌÐò£¬Ò³ÃæÈçÏ£º
°´Å¥bt_NewRow
textbox1
DagaGridView1
ÔÚtextbox1ÊäÈëÒ»¸öÖµ£¬DagaGridView1¼´Ôö¼ÓÒ»ÐÐ,Ê××Ö¶ÎֵΪtextbox1ÖÐÊäÈëÖµ
ÎÒµÄ×ö·¨Êǹ¹ÔìÒ»¸öDataTable£¬È»ºó°ó¶¨ÉÏDataGridView
Private Sub bt_NewRow_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bt_NewRow.Click
Dim dt_JobNum As DataTable = New DataTable()
dt_JobNum.Columns.Add("JobNum", GetType(String))
Dim dr As DataRow = dt_JobNum.NewRow()
dr(0) = Me.tb_JobNum.Text.ToString()
dt_JobNum.Rows.Add(dr)
Me.DataGridView1.DataSource = dt_JobNum
End Sub
½á¹ûÊÇÎҵ㰴ť£¬ÎÞÂÛ¶àÉٴζ¼Ö»Ôö¼ÓÒ»ÐУ¬
¶øÎÒÒªµÄÊǵãÒ»´Î¼´ÐÂÔöÒ»ÐУ¬
Dim dt_JobNum As DataTable = New DataTable() ·Åµ½·½·¨ÍâÈ¥
1Â¥Õý½â!
Äãÿ´Îµã»÷Ò»´Î°´Å¥¶¼ÊÇн¨ÁËÒ»¸öDataTable£¬È»ºóÔö¼ÓÁËÒ»ÐУ¬ËùÒÔÄãµÄDataTableÓÀÔ¶¶¼ÊÇÖ»ÓÐÒ»ÐеÄÐÂ±í£¬Äã¸øËüÉè³ÉdatagridviewµÄDatasourceµ±È»¾ÍÊÇÖ»ÓÐÒ»ÐÐÁË£¬ÔÀ´µÄDataSourceÈÃÄã¸ø¶¥ÌæÁË¡£Ã÷°×û¡£
°Ñ1Â¥¶¥ÆðÀ´
Ïà¹ØÎÊ´ð£º
Ï£Íû´ó¼ÒÄܹ»°ïÎÒÏÂ.¸ÐлÁË..
Ô´Âë´«ÔÚ´óÃ×ÅÌ VB6 µÄÔ´Âë http://www.damipan.com/file/3wNoKLW.html
תΪVB.NETÔ´Âë.
СµÜÍêÈ«ÊÇÐÂÊÖ ²»¶®µÄ˵.Âé·³¸÷λ°ïæһÏÂ
ÎÒµÄEMAILÊÇ:4452 ......
ÎÒÊÇVBµÄгÉÔ±£¬ÏÖÔÚÏëÓÃVBÀ´×ö¸öTXTÎĵµ£¬Çë´ó¼Ò¸øÎÒ´úÂë¼°½éÉÜÒ»ÏÂÏàÓ¦µÄ¿Ø¼þ£¡
·Ç³£¸Ðл£¡£¡£¡£¡£¡£¡
¿ÉÒÔÓÃһЩOFFICE¿Ø¼þ
googleÉÏÕÒһϰÉ,VBдÈëTXT,ºÜ¶àÑùÀý´úÂëµÄ
Ö±½Óµ÷²éÓþͿÉÒÔÁË
Ãæ¶ÔÃÀÅ® ......
°ïÎÒ¸Ä¸Ä ÎÒ×ܾõµÃÓÐÎÊÌâ
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......