- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 2个textbox 如何并起来写数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120132)
-- 发布时间：2018/6/7 18:39:00
-- [求助] 2个textbox 如何并起来写数据
2个textbox, textbox 里头的文本是 通过换行加入的。
请问： 怎么实现把2个文本框的内容一行一行读取出来，写入一个表里头
此主题相关图片如下：搜狗截图20180607183731.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test1830.zip |
-- 发布时间：2018/6/7 20:29:00
--
With e.Form.Controls("textbox1")
For i As Integer = 0 To .Lines.Length - 1
Messagebox.Show(.Lines(i))
Dim nd As DataRow = DataTables("表A").addnew
nd("第一列") = .Lines(i)
Next
End With
-- 发布时间：2018/6/7 20:36:00
--
我也倒腾了一下， 不过还是没有 有点甜 写得美， 汗
Dim v1 As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim v2 As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim lines() As String = v1.Text.Split(vbCrLf)
For Each vStr As String In lines
MessageBox.Show( vStr )
Next