数字转换

FK　发表于：2010-12-10 16:38:06 　

复制

各位老师好。

附件中第一列ID是物名，从第二列开始到最后一列，所有数字都是在1-6之间。现在想要建立一个查询，把1变成5，2变成4，3不变，4变成2，6或者null变成0，希望能得到各位老师的帮助，谢谢。

点击下载此附件

Top

一启软研发表于：2010-12-10 17:06:19

最简单办法：

打开表，点菜单替换。查找范围整个表，匹配为字段任何部分。

？：此表不经济。

Top

一启软研发表于：2010-12-10 17:10:46

步骤缺编办法。1变A，2变B，4变2,5变1，A变5，B变4

Top

金鑫发表于：2010-12-10 17:32:04

不能替换，因为这张表我还要把它作为原始表建立其它查询。不知道是否能直接在查询窗口中实现呢？

Top

煮江品茶发表于：2010-12-10 18:00:55

x=6-x

Top

煮江品茶发表于：2010-12-10 18:10:29

Private Sub Command0_Click()
Call 转换
End Sub

Sub 转换()
Dim rs As New ADODB.Recordset
Dim i As Long, j As Long
rs.Open "Sheet1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
    For j = 0 To rs.Fields.Count - 1
        If rs.Fields(j).Name <> "ID" Then
            rs.Fields(j).Value = 6 - rs.Fields(j).Value
            rs.Update
        End If
    Next
    rs.MoveNext
Next
rs.Close
End Sub

Top

煮江品茶发表于：2010-12-10 18:23:37

点击下载此附件

Top

总记录：6篇页次：1/1 9 1 :

Access交流中心

数字转换