7,763
社区成员
发帖
与我相关
我的任务
分享数据录入！
假设有一个文本框，我在里面输入数据，然后回车即可使数据录入，我说的录入是将这个数赋予一个数组元素中，如a（0），再输一个数将它赋予a（1）中，可现在我们输入的数据个数不定，就是说数组元素个数未知，现问：！怎样实现回车输入2怎样定义并使用数组，是不是要做个计数器？
...全文
请发表友善的回复…
发表回复
lk_cool 2004-01-17
- 打赏
- 举报
控件数组
ncutqi 2004-01-17
- 打赏
- 举报
好
我先试验一下
我先试验一下
lzpsky 2004-01-17
- 打赏
- 举报
你可以在窗体上加入一个空间数组
Private Sub Text1_KeyPress(index as integer, KeyAscii As Integer)
dim str() as string
redim str(0)
dim bool as boolean
bool=true
if keyascii=13 then
if bool=true then
str(0)=cstr(text1.text)
bool=false
else
redim preserve str(ubound(str)+1)
str(ubound(str))=text1.text
end if
end if
end if
End Sub
Private Sub Text1_KeyPress(index as integer, KeyAscii As Integer)
dim str() as string
redim str(0)
dim bool as boolean
bool=true
if keyascii=13 then
if bool=true then
str(0)=cstr(text1.text)
bool=false
else
redim preserve str(ubound(str)+1)
str(ubound(str))=text1.text
end if
end if
end if
End Sub
flc 2004-01-17
- 打赏
- 举报
关注
chinaren502 2004-01-17
- 打赏
- 举报
up
nicolas1999king 2004-01-17
- 打赏
- 举报
动态数组应该是最好的解决办法
PrettyMurphy 2004-01-17
- 打赏
- 举报
其实用什么都一样，不过不推荐集合，个人感觉集合就是鸡肋，速度上没有优势，又不象词典便于定位
----------------------------------
不会吧？
我觉得保存一些多类型的中间数据还是蛮灵活的哦
----------------------------------
不会吧？
我觉得保存一些多类型的中间数据还是蛮灵活的哦
kimurakenshin 2004-01-17
- 打赏
- 举报
up up
lepeng 2004-01-17
- 打赏
- 举报
大佬精炼
ing
ing
qffhq 2004-01-16
- 打赏
- 举报
到态数组呀，
getian 2004-01-16
- 打赏
- 举报
VB的动态数组原理上是不是用指针链表实现的？
rainstormmaster 2004-01-16
- 打赏
- 举报
其实用什么都一样，不过不推荐集合，个人感觉集合就是鸡肋，速度上没有优势，又不象词典便于定位
northwolves 2004-01-16
- 打赏
- 举报
Dim X As New Collection '定义集合
Private Sub Command1_Click() '显示录入数据
Dim I As Long
For I = 1 To X.Count
Debug.Print X(I)
Next
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '将录入数据加入集合，清空文本框
If KeyCode = vbKeyReturn And Text1.Text <> "" Then X.Add Text1.Text: Text1.Text = ""
End Sub
Private Sub Command1_Click() '显示录入数据
Dim I As Long
For I = 1 To X.Count
Debug.Print X(I)
Next
End Sub
Private Sub Form_Load()
Me.KeyPreview = True
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) '将录入数据加入集合，清空文本框
If KeyCode = vbKeyReturn And Text1.Text <> "" Then X.Add Text1.Text: Text1.Text = ""
End Sub
leaf24 2004-01-16
- 打赏
- 举报
呵呵，老大我说的是记录集，又没有说数据库。。呵呵。。。。我当然知道用数组了。其实都说的一样。但是我常用记录集！
88391788 2004-01-16
- 打赏
- 举报
mark
rainstormmaster 2004-01-16
- 打赏
- 举报
//如果你用数组不好确定数组的下标大小，所以若你定义大了会点内存，定小了会不够用。
你不会用动态数组吗？这么点功能没必要用数据库
你不会用动态数组吗？这么点功能没必要用数据库
leaf24 2004-01-16
- 打赏
- 举报
呵呵，教你用记录集好用一些哟，如果你用数组不好确定数组的下标大小，所以若你定义大了会点内存，定小了会不够用。所以我的建议是你用一个记录集。在文本框键入keycode=13的时候就写入向记录集增加数据。
你可以看一看文本框的KEYKOWN，KEYPRESS，KEYUP事件哟。呵呵。。不会再问一下哟！
你可以看一看文本框的KEYKOWN，KEYPRESS，KEYUP事件哟。呵呵。。不会再问一下哟！
rainstormmaster 2004-01-16
- 打赏
- 举报
'一个textbox，一个按钮：
Option Explicit
Dim i As Long
Dim arrstr() As String
'测试输出
Private Sub Command1_Click()
Dim j As Long
For j = 0 To UBound(arrstr)
Debug.Print arrstr(j)
Next
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ReDim Preserve arrstr(i)
arrstr(i) = Text1.Text
i = i + 1
Text1.Text = ""
End If
End Sub
Option Explicit
Dim i As Long
Dim arrstr() As String
'测试输出
Private Sub Command1_Click()
Dim j As Long
For j = 0 To UBound(arrstr)
Debug.Print arrstr(j)
Next
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
ReDim Preserve arrstr(i)
arrstr(i) = Text1.Text
i = i + 1
Text1.Text = ""
End If
End Sub
