VB datagridviewµ×²¿ºÏ¼Æ
ÈçºÎÔÚdatagridviewµÄ×îºóÒ»ÐÐ×öijÁÐÖµµÄºÍ»òÊdz˻ý¡£Òª¼ÆËã3¡¢4¡¢5Áи÷ÁеĺÍ,
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataGridView1.Rows.Add(TextBox3.Text, TextBox2.Text)
For i As Int32 = 0 To DataGridView1.Rows.Count - 1
DataGridView1.Rows(i).Cells(2).Value = DataGridView1.Rows(i).Cells(0).Value * _
DataGridView1.Rows(i).Cells(1).Value
DataGridView1.Rows(i).Cells(3).Value = DataGridView1.Rows(i).Cells(2).Value * _
CDbl(Val(TextBox1.Text))
DataGridView1.Rows(i).Cells(4).Value = DataGridView1.Rows(i).Cells(2).Value * _
CDbl(Val(Text
Ïà¹ØÎÊ´ð£º
vbдµÄ³ÌÐò±àÒëºó,ÔËÐÐÈô³ö´í,ÈçºÎÖªµÀµ½ÔÚÄÄÒ»ÐÐ?
°´Ctrl+F5Ô¤±àÒ룬³ö´íʱ»áÌø×ªµ½´íÎóÐÐ
²»ÊÇÄÇÑùµÄÁË,ÎÒÊÇÒªÇó±àÒë³ÉEXEºóÔËÐÐ,Ìáʾ³ö´íÄÜ·ñÌáʾ´íÔÚÄÄÒ»ÐÐ.
ÎÒ±àÒëºóÔÚÎҵĵçÄÔÉÏÔËÐÐûÎÊÌâ,µ«Ô ......
Çë½ÌÒ»¸öÓйØCommondialog¿Ø¼þµÄÎÊÌ⣨ʹshowfont·½·¨£©
µÚÒ»¸öÎÊÌ⣺
CommondialogÕâ¸ö¿Ø¼þµÄFlagsÊôÐÔÊDz»ÊÇÖ»ÄÜÔÚ´úÂëÖÐÉèÖÃ
ΪºÎÎÒÔÚÊôÐÔ¿òÀïµÄFlagsÒ»À¸ÖÐÊäÈëcdlCFScreenFonts£¨ÆÁÄ»×ÖÌå ......
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = 2: B = 3
For N = 1 To 6
  ......