求解：翻译一段vb代码
翻译成c#，我对vb实在是不懂!
VB code:
Public rsTemp As ADODB.Recordset
VB code:
If Objdata.ExecSelect(rsTemp, lcSQL, "") Then Exit Sub
If rsTemp.RecordCount > 0 Then
If Not IsNull(pArray) Then ReDim pArray(rsTemp.RecordCount - 1) As String
If Not IsNull(pArray1) Then ReDim pArray1(rsTemp.RecordCount - 1) As String
If Not IsNull(pArray2) Then ReDim pArray2(rsTemp.RecordCount - 1) As String
If Not IsNull(pArray3) Then ReDim pArray3(rsTemp.RecordCount - 1) As String
KK = 0
rsTemp.MoveFirst
Do While Not (rsTemp.EOF)
If Not IsNull(PCbo) Then PCbo.AddItem (Trim(rsTemp.Fields(1).Value))
If Not IsNull(pArray) Then pArray(KK) = Trim(rsTemp.Fields(0).Value)
If Not IsNull(pArray1) Then pArray1(KK) = Trim(rsTemp.Fields(1).Value)
If Not IsNull(pArray2) Then pArray2(KK) = Trim(rsTemp.Fields(2).Value)
If Not IsNull(pArray3) Then pArray3(KK) = Trim(rsTemp.Fields(3).Value)
KK = KK + 1
rsTemp.MoveNext
Loop
' Else
' pbSetCbo = False
End If
ExecSelect方法：
VB code:
Public Fu
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
MouseWait()
Dim ClearTempTabelSQL As String
'If Not ......
