Office中国论坛/Access中国论坛

标题: 清除字段后的空格 [打印本页]

---

作者: leonard123    时间: 2006-11-21 22:27
标题: 清除字段后的空格
求救:

我使用下面这段代码想把一个表中的字段的空格去掉,为什么执行后没有反映,空格在新表里还有呀?

Dim STemp As String
Dim i As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
STemp = "Select * From 供应商到货1"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic


Dim STemp1 As String
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
STemp1 = "Select * From 供应商到货"
rs1.Open STemp1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic


If rs.RecordCount < 1 Then
  Else
           rs.MoveFirst
       For i = 1 To rs.RecordCount

        rs1.AddNew
       rs1("供应商编码") = rs(Trim("供应商编码"))
           rs1("订单号") = rs(Trim("订单号"))
           rs1("门店部门") = rs(Trim("门店部门"))
           rs1("录入员") = Username
               rs.MoveNext
                Next i
         End If
rs.Update
      rs.Close
      rs1.Update
      rs1.Close
Set rs = Nothing
  Set rs1 = Nothing

---

作者: clon    时间: 2006-11-21 22:31

以下是引用leonard123在2006-11-21 14:27:00的发言：


求救:

我使用下面这段代码想把一个表中的字段的空格去掉,为什么执行后没有反映,空格在新表里还有呀?

Dim STemp As String
Dim i As Integer
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
STemp = "Select * From 供应商到货1"
rs.Open STemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic


Dim STemp1 As String
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
STemp1 = "Select * From 供应商到货"
rs1.Open STemp1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic


If rs.RecordCount < 1 Then
  Else
           rs.MoveFirst
       For i = 1 To rs.RecordCount

        rs1.AddNew
       rs1("供应商编码") = rs(Trim("供应商编码"))
           rs1("订单号") = rs(Trim("订单号"))
           rs1("门店部门") = rs(Trim("门店部门"))
           rs1("录入员") = Username
               rs.MoveNext
                Next i
         End If
rs.Update
      rs.Close
      rs1.Update
      rs1.Close
Set rs = Nothing
  Set rs1 = Nothing

rs(Trim())

改为

Trim(rs())试试？

---

作者: kelind    时间: 2006-11-22 02:33
Dim STemp1 As String
Dim rs1 As ADODB.Recordset
Set rs1 = New ADODB.Recordset
STemp1 = "Select * From 供应商到货"
rs1.Open STemp1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic




If rs.RecordCount < 1 Then
  Else
           rs.MoveFirst
       For i = 1 To rs.RecordCount



       'rs1.AddNew
      if  rs1("供应商编码") = "" then

          rs1.delet

         end if

        rs.Close
不用倒入新表,直接删除没有内容的记录不行吗?

---

作者: kelind    时间: 2006-11-22 02:34
rs1.delete

---

作者: leonard123    时间: 2006-11-22 03:33
上面那个问题解决了，用这个的rs1("供应商编码") = format(rs("供应商编码"),"")我的数据是导入的，所以有可能不是空格，但是现在又有一个问题了，上面的把一个表的数据复制的另一个表中，但是会出错，最后一个记录复制不了，请问为什么？

---

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

Powered by Discuz! X3.3