Ò»¸öVBÎÊÌâ - VB / »ù´¡Àà
Private Sub Command1_Click()
'½«Îı¾¿òÖеÄÐÅÏ¢Ìí¼Óµ½Áбí¿òÖÐ
Dim i As Integer
With ListView1.ListItems.Add()
.text = Text1(0)
For i = 1 To 4
.SubItems(i) = Text1(i)
Next i
End With
End Sub
listviewµÄÎÊÌ⣬
.text = Text1(0)
For i = 1 To 4
.SubItems(i) = Text1(i)
ΪʲôҪÕâÑùд£¿I²»ÄÜ´Ó0¿ªÊ¼Âð£¿ÁíÍâ.textÔÚÕâ±íʾʲô£¿ÊÇlistviewµÄµÚÒ»ÁÐÂð£¿ÎªÊ²Ã´£¿
xiexie
ListView1.ListItemsÊÇÒ»¸ö¼¯ºÏ,text¾ÍÊÇÕâ¸ö¼¯ºÏÿһ¸öÔªËØµÄÎı¾,ʵ¼Ê¾ÍÊǵÚÒ»ÁеÄÎı¾,ListView1ÖÐÁбíÍ·¼¯ºÏ,ÏîÄ¿¼¯ºÏ,ÏîÄ¿×ÓÏºÏµÄµÚÒ»ÏîµÄË÷Òý¶¼ÊÇ1
Ïà¹ØÎÊ´ð£º
DIM ds as new DataSet
ÎÒÕâÑùÉùÃ÷ ÔõÀÏÊDZ¨ Óû§¶¨ÒåÀàÐÍ䶨Ò壿 Õâ¸öÐèÒªÒýÓÃʲôÂ𣿣¿
ǰÌáÊÇDataSet¶ÔÏóÒª´æÔÚ,¾ÍÊǶÔÏóä¯ÀÀÆ÷ÖÐÓÐËü.ûÓоÍÒªÒýÓÃ.
datasetÊÇADO.NET¶ÔÏó
Èç¹ûÄãÓõÄÊÇvb.net£¬ÄÇôÔÚ´ ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......
ËÄܰïÎÒ°ÑÏÂÃæÕâЩ´úÂë¸Ä³ÉVBÐÎʽµÄ£¬¶àлÁË£¬¼±ÓÃ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[],float g ......
ͦ·±Ëö£¬Ö®Ç°·¢µÄÌû×Ó£¬·Öֵ̫µÍÏÖÔÚÖØ·¢Ò»¸ö¡£»¶Ó¸÷λ´óÏÀ~~
#include "stdlib.h"
#include "math.h"
#include "stdio.h"
float objfx(float x[]);
void constraint(float x[] ......