listbox控件问题

Question

LISTBOX1.text=combobox1.text & textbox1.text
每次选择COMBOBOX的内容，输入TEXTBOX内容后，添加至LISTBOX中，现要向ACCESS中写数据。FIELDS（1）=LISTBOX中的COMBOBOX1。TEXT，FIELDS（1）为文本型
      。FIELDS（2）=LISTBOX中的TEXTBOX1。TEXT，FIELDS（1）为数字型
怎样取出LISTBOX中的字符和数字？

Answer 1

COMBOBOX1。TEXT及TEXT1。TEXT中的字符长度不一样长
ASC（）只返回首个字符的代码，该如何解决？
有别的方法吗？

Answer 2

dim i as integer
dim strText as stirng ,Num as long '假设数字为长
dim str as string 
dim index as integer
   str=LISTBOX1.text
   index=-1
   for i=0 to 9 
        index=instr(str,cstr(i))
        if index>0 then
             exit for   
        end if
   next i
   strText=left(str,i-1)
   num=clng(right(str,i))

Answer 3

可以用2个整型的动态数组保存combobox1.text中每行字符的长短和textbox1.text中字符的长短或者:
Left(LISTBOX1.SelectedIndex,Len(combobox1.text))就是原combobox1.text中的内容
Rigth(LISTBOX1.SelectedIndex,Len(LISTBOX1.SelectedIndex)-Len(combobox1.text))就是原textbox1.text中的内容
若要存为数字再用CLng函数转换一下