vbתc#
vb.net:
Public Sub A(AA() As recA)
...
ReDim AA(Dataset.Tables[0].Rows.Count)
...
ÔõôÑùת³Éc#,·ÇÐèÒªArrayList?¸ßÊִͽ̡£
Dataset.Tables[0].Rows.Count
Õâ¾äÊǵÚÒ»ÐеÄcountÊÇʲôÒâ˼Èö£¿
Dataset.Tables[0].Rows.Count
ºÍ
arraylist.count ²î²»¶à
ReDim C#²»Ö§³Ö
¿ÉʹÓÃHashTable£¬ListµÈ¼¯ºÏ
vb.net:
Public Sub A(AA() As recA)
...
ReDim AA(Dataset.Tables[0].Rows.Count)
...
c#:
public void A(recA AA[])
...
AA = new recA[Dataset.Tables[0].Rows.Count];
ÔÚC# ÖÐ ¿ÉÒÔʹÓà Array.Copy() À´ÊµÏÖ VB µÄ redim ¹¦ÄÜ
Ã÷ÈÕ½áÌù£¬¸ø·Ö¡£
Ò²¿ÉʹÓÃ
Array.Resize
¾ßÌåʵÀý:
http://msdn.microsoft.com/zh-cn/library/bb348051(v=VS.95).aspx
Ïà¹ØÎÊ´ð£º
VBÔõÑù»ñµÃÊó±ê´¦µÄ³¬¼¶Á¬½ÓÄØ£¿
ÔÚWebBrowser¿Ø¼þÖÐÓÐÕâÑùÒ»¸öʼþ:StatusTextChange(index As Integer, ByVal Text As String)
ËüµÄText²ÎÊýÕýÊÇÊó±ê´¦µÄ³¬¼¶Á¬½Ó,µ«ÎÊÌâÊÇÈç¹ûÎÒµÄä¯ÀÀÆ÷Õýà ......
ÔÚvbÖÐÈçºÎ¶ÁÈ¡WordÄÚÈÝ(°üº¬±í¸ñ£¬Í¼Æ¬£¬µÈ£©
¾¹È»²»ÊÇzero¡£
²»ÖªµÀÔõôʵÏֵIJ»ÒªËµ»°
Õâ¸öÖ»ÄܶÁÎı¾,
VB code:
Private Sub Command1_Click()
Dim WordApp As Object
Set WordApp = CreateObject(& ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' ´ò¿ª¸Õ´´½¨µÄÎļþ¡£
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' ¶ÁÈëËùÓÐ×Ö·ûµ½±äÁ¿ÖÐ ......
dim a as string,b as string£¬c as string
a="¹¤³Ì±àºÅ,µ¥Î»¹¤³ÌÃû³Æ,·Ö²¿¹¤³Ì±àºÅ"
b="µ¥Î»¹¤³ÌÃû³Æ"
c="µ¥Î»"
Ôõô²ÅÄÜÅжϳöa×Ö·û´®ÖдæÔÚb×Ö·û´®£¬¶ø²»´æÔÚc×Ö·û´®
¿´¿´i ......
ÎÊÌ⣺
ÏÖÔÚAccessÊý¾Ý¿âÖÐÓÐÁ½ÕűíTableAºÍTableB
TableAÖÐÓмǼÈçÏÂ:
×Ö¶Î1(Name) ×Ö¶Î2(Num)
A 3
A 4
B 6
... ......