Office中国论坛/Access中国论坛

标题: 字符之间怎么拆分 [打印本页]

作者: chinajax 时间: 2007-11-26 09:45
标题: 字符之间怎么拆分
产品
  123456电视
  2345-r洗衣机
  R-3LS空调

要求把型号和名字拆分开如-- 123456 电视怎么做????

作者: kangking 时间: 2007-11-26 12:17
选建一个表,字段为:产品,型号,产品名称,在产品中录入你的"123456电视"等等.
建立一个模块,建立一个过程,在过程中录入下面的代码:
Dim rs As DAO.Recordset
Dim i As Integer

Set rs = CurrentDb.OpenRecordset("表1")

rs.MoveFirst
Do Until rs.EOF
For i = 1 To Len(rs(0))
      If Asc(Mid(rs(0), i, 1)) < 0 Then
         rs.Edit
         rs(1) = Mid(rs(0), 1, i - 1)
         rs(2) = Mid(rs(0), i)
         rs.Update
         Exit For
      End If
Next
rs.MoveNext
Loop

然后运行之.

作者: chinajax 时间: 2007-12-11 14:36
再详细点撒. 运行什么????

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