Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

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´òÓ¡ÎÊÌâ

´ó¼ÒºÃ£¬Îʸövb´òÓ¡ÎÊÌâ


printer.print "dsff"
.....
....


Printer.EndDoc


´òÓ¡³É¹¦ºóÎÒ½«Ö´ÐÐ

sqlstr = "update vc_yh set pr=' ÒÑ´òÓ¡ ', ......

VB ´°¿ÚºÍ¿Ø¼þÀàÃûÊÇ·ñ×Ô¶¯Ïú»Ù?

×òÌìлл chenhui530 °ïÎÒ½â¾öÁË´°¿ÚºÍÀàÃûµÄ¶¯Ì¬Ëæ»úÉú³É¡£
µ«ÏÖÔÚÓÐÒ»¸öÒÉÎÊ£¬¾ÍÊÇËùÓд°¿ÚºÍ¿Ø¼þ¸Ä³ÉµÄËæ»úÀàÃûºó£¬ÊÇ·ñÔÚ³ÌÐò¹Ø±Õʱ×Ô¶¯Ïú»ÙÁËÄØ£¿
Èç¹ûÐ¶ÔØ´°Ìåʱ¼ÓÉÏEND£¬»á×Ô¶¯½øÐÐÇåÀí¡£

×îºÃÑø³É Re ......

¿´µ½VB°æÄÇÐ©Ü½ÈØ½ã·òʽµÄ¼Ò»ïÎҾͶñÐÄ

Ò»¸ö¸öΪÁ˳öÃû¾ÓȻʹÓÃ×Ô¼ºµÄÕÕÆ¬³öÀ´ÕÐÒ¡,Çî·èÁ˰É
©°©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤My ѸÀ׵ȼ¶©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©¤©´




so what? disturbed you?

´ó¸ÅºÃ¶àÖ»ÓгõÖбÏÒµ

ÊDz ......

vb ÄÑÌâ

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
......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ