text的小问题.解决就给分~在线等~

Question

先從TEXT1中讀取內容,
再用SPLIT函数把它們分割開.再得用循環依次將內容添加至數據庫.

Answer 1

dim PhoneNumArr() as string
  PhoneNum= tex1.text
  Msg = text2.text
  PhoneNumArr =split(PhoneNum,",")
 For i = 0 To ubound(PhoneNumArr)
  adoRecordset.AddNew
  adoRecordset.Fields("phoneNum") = PhoneNumArr(0)
  adoRecordset.Fields("msg") = msg
  adoRecordset.update
 Next

Answer 2

sorry 忘记点东西了
 adoRecordset.Fields("phoneNum") = PhoneNumArr(i)

Answer 3

楼上的正解
在DataGrid里显示就只需要
Set .DataSource = adoRecordset
然后Refresh一下就行了