请问表如何同时多列清零

layaman_999

表字段：品种1，品种2........
将这些字段默认值设置为空吧

Henry D. Sy

要把代码放在你的命令0_Click下面

leejiner

Henry D. Sy 发表于 2012-6-22 16:22
要把代码放在你的命令0_Click下面

解决问题了！
感谢各位不辞辛劳，指点一个笨学生！

todaynew

leejiner 发表于 2012-6-21 18:23
谢谢！我的意思没有表达清楚：
我是需要将所有为‘0’的数据全部清除。

如果只是为了显示的数据美观，只需：
select a.名称,iif(a.品种1=0,null,a.品种1) as 品种1,iif(a.品种2=0,null,a.品种2) as 品种2,iif(a.品种3=0,null,a.品种3) as 品种3,iif(a.品种4=0,null,a.品种4) as 品种4 from 表1 as a

如果确需更改数据，则需：
docmd.runsql "update 表1 set 品种1=iif(品种1=0,null,品种1),品种2=iif(品种2=0,null,品种2),品种3=iif(品种3=0,null,品种3),品种4=iif(品种4=0,null,品种4)"

leejiner

todaynew 发表于 2012-6-26 13:38
如果只是为了显示的数据美观，只需：
select a.名称,iif(a.品种1=0,null,a.品种1) as 品种1,iif(a.品种2 ...

谢谢！这是我原来的思路，可惜搞不出来。

leejiner

Henry D. Sy 发表于 2012-6-21 21:02
是不是这个意思

Henry版主：
请问相反的，现需要在为Null 的单元格里自动加上数值 ‘0’，请问应该如何做？
谢谢！
（Ps.我想当然在你原来的代码将 0 和 Null 互换，代码不能通过，只好再劳烦你大驾了！）

Henry D. Sy

leejiner 发表于 2012-6-30 16:31
Henry版主：
请问相反的，现需要在为Null 的单元格里自动加上数值 ‘0’，请问应该如何做？
谢谢！

Private Sub Command0_Click()
  Dim rs As New ADODB.Recordset
  Dim i As Integer
  rs.Open "表1", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  Do While Not rs.EOF
    For i = 0 To rs.Fields.Count - 1
        If IsNull(rs.Fields(i)) Then
           rs.Fields(i) = 0
           rs.Update
        End If
    Next
    rs.MoveNext
  Loop
  DoCmd.OpenTable "表1", acViewNormal
  rs.Close
  Set rs = Nothing
End Sub

leejiner

Henry D. Sy 发表于 2012-6-30 16:54
Private Sub Command0_Click()
  Dim rs As New ADODB.Recordset
  Dim i As Integer

谢谢！