Access数据表部分记录补全的问题 (求助、讨论)

syoan

这段时间遇到一种比较奇怪的表。例如：(例子： ) ，表1里面分为两组，然后每一组只有第一排有订单号、地区名称，其他的排为空白。
我想写一个模块，把空白部分补全，（其实就是用第一排不为空的内容补全下面空白的若干排，最终效果  ）。
诚心的请教高人！

chuang0321

制作一个窗体“表1”。先前利用“Me.订单号 = "" ” 运行还通过了，结果关闭后再进去就不行了，搞不定了。
Dim i As Integer, jilu As Integer, ddh As String, dq As String
  
  jilu = DLookup("[id]", "表1")

For i = 1 To jilu

   If Me.订单号 = "" Then
      Me.订单号 = ddh
      Me.地区 = dq
    Else
  MsgBox 订单号
  ddh = Me.订单号
      dq = Me.地区
    End If
  DoCmd.GoToRecord , , acNext
Next
End Sub

syoan

我试了一以下，遗憾，谢谢Chuang0312！！！ 虽然目前还没有成功。

todaynew

Private Sub 运算_Click()
Dim rs As New ADODB.Recordset
Dim sql As String
Dim i As Long
Dim 单号 As String
sql = "select 订单号 from 表1"
rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs.RecordCount
        If IsNull(rs("订单号")) Then
            rs("订单号") = 单号
            rs.Update
        Else
            单号 = rs("订单号")
        End If
    rs.MoveNext
Next
rs.Close
Me.子窗体.Requery
End Sub

syoan

todaynew 兄，强劲！赞啊，我什么时候才能达到这种境界阿。

syoan

todaynew 兄，有一个地方美中不足，SQL select 语句中的字段名不能包含空格，这是不是SQL的通病阿？

todaynew

用“”做字段名？这也太奇怪了吧？!有什么特殊需求？