Dim str As String= e.Form.Controls("TextBox2").value Dim n As Integer Dim strs() As String strs =str.replace(vbcr,"").Split(vblf) n=strs.Length Dim i As Integer Dim dt(i) As fxDataSource For i = 0 To n-1 If strs(i) > "" Then MessageBox.Show(strs(i),"提示") End If Next
加好友 
发短信
Post By：2013/12/21 12:28:00 [显示全部帖子]
