Office中国论坛/Access中国论坛

标题: [求助]如何获取字符并添加到表中 [打印本页]

作者: mrl 时间: 2005-10-11 08:22
标题: [求助]如何获取字符并添加到表中
例如有文本：张三；李四；王五六；（名字数量不定）

问1:如何获得名字的数量

问2:如何将每个名字添加入员工表中

作者: 海狸先生 时间: 2005-10-11 19:06
用;　号分格吗？dim stra() as string,rs as new ADODB.recordset,i as integerstra()=split("张三;李四;王五六",";")msgbox "数量为" & Ubound(stra)rs.open "员工表",currentproject.conntion,3,3for i=lbound(stra)to Ubound(stra)rs.addnewrs("名字")=stra(i)rs.updatenextrs.close

作者: mrl 时间: 2005-10-12 02:47
真行！谢谢

作者: mrl 时间: 2005-10-12 03:39
rs.Open "订单", CurrentProject.conntion, 3, 3这句提示：对象不支持该属性或方法 Dim stra() As String, rs As New ADODB.Recordset, i As Integer



      stra() = Split(Me.Text5, ",")

      MsgBox "数量为" & UBound(stra)       rs.Open "订单", CurrentProject.conntion, 3, 3       For i = LBound(stra) To UBound(stra)          rs.AddNew          rs("编号") = stra(i)

         rs("数量") = Me.Text6

         rs("客户") = Me.Text客户

         rs("单号") = Me.Text单号

         rs.Update       Next    rs.Close

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)