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

VB´¦Àídataset

³õѧVB£¬Çë½Ì´ó¼ÒVB´¦ÀídatasetµÄ·½·¨¡£
¾ßÌåÐèҪʵÏֵŦÄÜÊǽ«²éѯ½á¹ûµÄdatasetÖÐÐкÍÁÐ×öתÖ㬴ó¼Ò֮ǰÓд¦Àí¹ýÀàËÆµÄÐèÇóÂð£¿ÐèÇó²Î¿¼ÈçÏ£º

DataSetÊý¾Ý£º
Line_Id FI_Qty Sample_Qty  Sample_Ratio Defect_Qty
MA1 0     6         0     0

תÖúóµÄÊý¾Ý£º
Line_Id        MA1
FI_Qty          0
Sample_Qty      6
Sample_Ratio    0
Defect_Qty      0

Õâ¸öÒ»°ã¶¼ÊÇÔÚsqlÀïÃæ´¦ÀíÍêÁËÔÙÄóöÀ´µ½¡£¡£
¸ø¸ö×î»ù±¾µ½ÐÐתÁУ¬×Ô¼º¿´ÏÂ
SQL code:

if object_id('tb') is not null drop table tb
create table tb (Num varchar(10),State varchar(10))
insert tb
select 'A01','ʤ' union all
select 'A01','ʤ' union all
select 'A01','¸º' union all
select 'A01','¸º' union all
select 'A02','ʤ' union all
select 'A02','¸º' union all
select 'A02','¸º'
select Num,
ʤ = sum(case when (tb.State = 'ʤ') then 1 else 0 end),
¸º = sum(case when (tb.State = '¸º') then 1 else 0 end)
from tb
group by Num



ÄãÖ»ÄÜд´½¨Ò»¸öDataSetʵÀýÁË¡£
1. ÔÚеÄDataSetÉÏÔÚ¶îÍâÌí¼ÓÁ½¸öcolumnÃû×Ö£¬·ñÕßÔ­À´µÄÕâÁ½ÐÐûÓÐÊôÐÔµÄÖ§³Ö¡£
2. н¨µÄDataSetÀï´´½¨Ò»¸ötable£¬ÉèÖÃÏàÓ¦µÄÊôÐÔÁС£
3. ¶ÁȡԴ±íµÄÐУ¬²åÈ뵽бí×÷ΪÁÐ



Ïà¹ØÎÊ´ð£º

¹ØÓÚASP.net(vb)²¥·Å¼à¿ØÂ¼ÏñµÄÎÊÌâ

ÎÒÓг§¼Ò×öµÄASPµÄ¼à¿ØÂ¼Ïñ£¨DVR£©µÄ¾ÖÓòÍø²¥·ÅµÄÔ´³ÌÐòÓë¿Ø¼þ£¬ÏëÒªÓÃASP.net×öÒ»¸öÊÓÆµ»Ø·ÅµÄ³ÌÐò£¨ÀûÓÃËûµÄ¿Ø¼þ£©µ«²»ÖªÈçÏÂÈ¥×ö£¬Íû¸÷λָµã¡£
ÏȸãÇå³þËûÃǵĿؼþÊÇÔõôÓõÄ,
È»ºó¾ÍÖ±½ÓÓúÃÁË.
²»¹ý,Èç ......

vbÄÜ·ñ°Ñwinsock¿Ø¼þ·â×°µ½dllÖÐ

vb½«winsock¿Ø¼þ·â×°µ½dllÎÊÌâ ÓÐʲôºÃµÄ˼·£¿ Èç¹ûÓÃSocket APIÄØ£¿
ÀýÈ磬ÏñÏÂÃæÕâÑù·â×°Winsock¿Ø¼þ£¬ÐеÄͨ£¿
´´½¨ActiveX dll£¬Ìí¼Ó´°ÌåfrmClient£¬¼ÓÈëWinSock¿Ø¼þwskClient¡£
Àà´úÂ룺
Option Expli ......

vb.net ´´½¨accessÊý¾Ý±íʵÏÖÒ»Êý¾Ý¿â¶à¸öÊý¾Ý±í£¿

Çë¸÷λָµãÏ£º³ÌÐò´úÂëÈçÏÂmingchen = "C:\Îļþ·¾¶\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......

±±¾©¡¡ÕжÔÈÕVB¹¤³Ìʦ

ÕжÔÈÕVB¹¤³Ìʦ
ÒªÇó¶þÄêÒÔÉϵÄVB¾­Ñé
Óйý¶ÔÈÕÏîÄ¿µÄ×îºÃ£¬ÄÜ¿´¶®ÈÕÓïµÄ
ÓкÏÊʵķ¢¼òÀúµ½ÓÊÏäxiaocm2004@163.com

¸çÃÇ
´óÁ¬ÓÐÄãµÄµØÅÌÂð£¿


VBû×ö¹ýÕ¦Õû£¡

VB6µ¹ÊÇûÎÊÌ⣬¿Éϧ²»¶®ÈÕ ......

100·Ö£¡¹ØÓÚvbµ÷ÓÃdelphi±àдµÄdllµÄÎÊÌ⣬¼±£¡£¡£¡

¸÷λ¸ßÊָϿì°ï°ïæ¡£
ÏÖÔÚÓÐÒ»¸ödelphiдµÄdll£¬º¯ÊýÖÐÓÐPIntegerµÄ·µ»Ø²ÎÊý£¬ÔÚdelphiÖпÉÒÔÕý³£µ÷Ó㬵«ÊÇÎÒÔÚvbÀïдµÄʱºò¾Í²»ÖªµÀ¸ÃÔõôÀ´µ÷ÓÃÁË¡£
Çë¿´´úÂë
ÒÔÏÂÊÇdelphiÖеĺ¯Êý¶¨ÒåºÍµ÷ÓôúÂ룬ÄÜÕý³£ÔËÐ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ