数组F()、L()为动态数组,两数组的元素个数相同(数量已知)
F()中存有变量,L()中存有数据
比如:
M = rs.Fields.Count - 1ReDim L(M) As Variant
ReDim f(M) As Variant
For J = 0 To M
L(J) = rs.Fields(J)
a1 = Asc("a")
f(J) = Chr(a1 + J) Next J
当元素个数为3时,f(0)= a,f(1)=b,f(2)=c问题:如何才能将l(0)、l(1)、l(2)的值分别赋给变量a、b、c,并且可直接调用变量a、b、c而不用f(0)、f(1)、f(2)表示
如label1.caption=a而不写成label1.caption=f(0)
F()中存有变量,L()中存有数据
比如:
M = rs.Fields.Count - 1ReDim L(M) As Variant
ReDim f(M) As Variant
For J = 0 To M
L(J) = rs.Fields(J)
a1 = Asc("a")
f(J) = Chr(a1 + J) Next J
当元素个数为3时,f(0)= a,f(1)=b,f(2)=c问题:如何才能将l(0)、l(1)、l(2)的值分别赋给变量a、b、c,并且可直接调用变量a、b、c而不用f(0)、f(1)、f(2)表示
如label1.caption=a而不写成label1.caption=f(0)
解决方案 »
- 数据库编程里边,ado中recordset如何对原有数据进行修改!在线等,谢谢!
- 水晶报表9.2问题请教
- 如何动态移动鼠标位置?
- ActiveReport在Detail里怎样显示空行?
- 请问如何用 sendmessage 发送键盘按键消息?
- 请问如何用adodc连接到远程数据库?
- 谁有使用多用户,不同权限登录的系统,什么系统都行,我想看看怎样实现?
- 我在将.dat文件写入数据库时遇到这样的问题:“这样的操作不允许”
- 如何在整個C:\中的網頁文件中body的最底部分,批量加入我公司的電話
- 怎样能够将声量无限的扩大?就是不管windows中的是否已经是最大音量,只要声卡和音箱能承受就可以的。
- 如何在我的vb打包程序里 加进动态连接库啊
- 现在我的表单上有3个文本框,可以通过 text属性把它们的内容设为空,但如果有N个文本框,那么写语句要写N句这样的话,请问有没有简单一点
Select Case iCase 0
a=l(0)
Case 1
b=l(1)
cast 2
c=l(2)
cast 3
d=l(3)
cast 4
e=l(4)End SelectNext
Me(Chr(Asc("a") + i)) = l(i)
Next