Public qsta0(6) As Integer
Public qsta1(6) As Integer
Public qsta2(6) As Integer
Public qsta3(6) As Integer
Public qsta4(6) As Integer
Public qsta5(6) As Integer
Public qsta6(6) As Integer
Public qsta7(6) As Integer
定义的这些数组该如何实例化呢
第一个方法:
Public Function mainFun() As String
Try
Call getsatV(workid, status)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return ""
End Function
第三个方法:
Public Function getwkQ(ByVal wkno As String) As String
WriteLog("wkno" & wkno)
Try
Dim k As Integer
Dim stmpValue() As String
For k = 0 To UBound(skillwk)
WriteLog("技能组对应工号" & skillwk(k))
stmpValue = Split(skillwk(k), "==")
If CStr(stmpValue(0)) = "skillwk".ToUpper Then
If (stmpValue(1).Split("@@")(1)) = wkno Then
Return stmpValue(1).Split("@@")(0)
End If
End If
Next k
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
Return ""
End Function