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£¨ÆÁÄ»×ÖÌå ......
³ö錯µÄ時ºòÈ¥執ÐÐÒ»¶Î´ú碼Ö®áá,Ôٻص½³ö錯µÄµØ·½½ÓÖøÍùÏÂ執ÐÐ
ÈçºÎÓÃvb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
.... ......
form2,form3¶¼·Ö±ðÓÐÒ»¸ölabel1ÊôÐÔÊÇÒ»Ñù
Private Sub Command1_Click()
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
......
Ë«ÖØËæ»ú Ôõôд ¾ÍÊÇËæ»ú³öÁËÒ»¸öÊý È»ºóÄÃÕâ¸öÊý×ù¿ªÍ·ÔÙËæ»úÒ»±é
±ÈÈç 1µ½10Ö®¼ä Ëæ»ú µÚÒ»´ÎÒÔ1¿ªÍ·10½áβ Ëæ»ú³öÒ»¸ö7 µÚ¶þ´Î¾ÍÊÇÒÔ7¿ªÍ·6½áβÔÙËæ»úÒ»±é
ÄÇλ¿ÉÒÔ°ï¸öæ ÏÈллÁË
6½áβ Õâ¸öʲ ......