Office中国论坛/Access中国论坛

标题: Access数据表部分记录补全的问题 (求助、讨论) [打印本页]

作者: syoan 时间: 2009-4-15 10:47
标题: Access数据表部分记录补全的问题 (求助、讨论)
这段时间遇到一种比较奇怪的表。例如：(例子：[attach]37303[/attach] ) ，表1里面分为两组，然后每一组只有第一排有订单号、地区名称，其他的排为空白。
我想写一个模块，把空白部分补全，（其实就是用第一排不为空的内容补全下面空白的若干排，最终效果 [attach]37304[/attach]）。
诚心的请教高人！

作者: chuang0321 时间: 2009-4-15 12:25
本帖最后由 chuang0321 于 2009-4-15 12:35 编辑

制作一个窗体“表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 时间: 2009-4-15 13:49
我试了一以下，遗憾，谢谢Chuang0312！！！虽然目前还没有成功。

作者: todaynew 时间: 2009-4-15 15:33
本帖最后由 todaynew 于 2009-4-15 15:44 编辑

[attach]37321[/attach]
[attach]37320[/attach]

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 时间: 2009-4-16 11:42
todaynew 兄，强劲！赞啊，我什么时候才能达到这种境界阿。

作者: syoan 时间: 2009-4-16 15:22
todaynew 兄，有一个地方美中不足，SQL select 语句中的字段名不能包含空格，这是不是SQL的通病阿？

作者: todaynew 时间: 2009-4-16 17:30
用“”做字段名？这也太奇怪了吧？!有什么特殊需求？

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