清除字段后的空格

leonard123

求救:

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

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

以下是引用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

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

rs1.delete

leonard123

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