if myreader.getstring(2) "" then
吳興ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景,ssl證書未來市場(chǎng)廣闊!成為成都創(chuàng)新互聯(lián)公司的ssl證書銷售渠道,可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠!如果有意向歡迎電話聯(lián)系或者加微信:18982081108(備注:SSL證書合作)期待與您的合作!
else
....
end if
取反 這樣可以的 我一直就這樣寫
一個(gè)簡(jiǎn)單的例子:
Dim a(3) As Integer = { 0, 1, 2 }**修改**既然有界數(shù)組不能初始化,就還缺(?。┙鐢?shù)組試試嘛:
Dim a() As Integer = { 0, 1, 2 }
類型不匹配的錯(cuò)誤估計(jì)是你的結(jié)構(gòu)體缺少構(gòu)造函數(shù)造成的。在你的quality_i結(jié)構(gòu)體定義里面加一個(gè)構(gòu)造函數(shù),如下所示
Public Structure quality_i
Public nub As Integer
Public nae As String
Public Sub New(ub As Integer, ae As String)nub = ubnae = aeEnd SubEnd Structure然后以如下方式初始化:
1、先定義一個(gè)結(jié)構(gòu)體
2、初始化并定義一個(gè)結(jié)構(gòu)體的變量
3、使用該變量即可
一: 利用錯(cuò)誤捕獲功能判斷
Dim ArrayS() As String
Private Sub Command1_Click()
On Error GoTo z
ReDim ArrayS(10)
If UBound(ArrayS) -1 Then
MsgBox "數(shù)組不為空"
End If
Exit Sub
z:
MsgBox "數(shù)組空"
End Sub
二、 Join方法:
Dim ArrayS() As String
Private Sub Command1_Click()
If (CStr(Join(ArrayS, ""))) = "" Then
MsgBox "為空"
Else
MsgBox "不為空"
End If
End Sub