如何拆分列

Henry D. Sy

什么意思

boy1

还有这句是什么意思 CurrentDb.Execute strSQL

[ 本帖最后由 boy1 于 2008-12-14 11:07 编辑 ]

Henry D. Sy

1. 应该尽量控制null值，如何改写代码要看你具体要求，和有效性规则。
2. 可以加个局部循环
3. 不用，a代表查询表的名称
4. datediff("d",日期字段名,date())<=10

boy1

原帖由 Henry D. Sy 于 2008-12-14 10:28 发表
1. 应该尽量控制null值，如何改写代码要看你具体要求，和有效性规则。
2. 可以加个局部循环
3. 不用，a代表查询表的名称
4. datediff("d",日期字段名,date())

附上新的实例文件，请麻烦给与修改。谢谢。又麻烦您了。

[ 本帖最后由 boy1 于 2008-12-14 15:30 编辑 ]

Henry D. Sy

日期出现错误是因为，原数据有误引起的，你说11月份有31天的吗？？

1. Private Sub Command0_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim dtmArray() As String
   
5.     Dim strTemp As String
   
6.     Dim I As Integer, J As Integer
   
7. 
   
8.     rs.Open "a", CurrentProject.Connection, adOpenKeyset, adLockReadOnly
   
9.     rst.Open "b", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
10. 
    
11.     Do While Not rs.EOF
    
12.         If IsNull(rs.Fields(rs.Fields.Count - 1)) Then
    
13.             strTemp = "1900-1-1"
    
14.         Else
    
15.             strTemp = rs.Fields(rs.Fields.Count - 1)
    
16.         End If
    
17.         dtmArray() = Split(Replace(strTemp, ".", "-"), "/")
    
18.         For I = 0 To UBound(dtmArray)
    
19.             With rst
    
20.                 .AddNew
    
21.                 For J = 0 To rs.Fields.Count - 2
    
22.                     .Fields(J) = rs.Fields(J)
    
23.                 Next
    
24.                 .Fields(J) = CDate(dtmArray(I))
    
25.                 .Update
    
26.             End With
    
27.         Next
    
28.         rs.MoveNext
    
29.     Loop
    
30.     rst.Close
    
31.     rs.Close
    
32.     Set rs = Nothing
    
33.     Set rst = Nothing
    
34.     Me.b.Requery
    
35.     Me.Command1.SetFocus
    
36.     Me.Command0.Enabled = False
    
37.     Me.签约时间开始.Enabled = True
    
38. 
    
39. End Sub

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-12-14 17:17 编辑 ]

boy1

[:32]不好意思，随意的日期竟然造成麻烦实在对不住啊。

[ 本帖最后由 boy1 于 2008-12-14 18:07 编辑 ]

Henry D. Sy

你到底是查询30天以内，或是 30 天以上，或 30天。

boy1

[:50] 未来30以内，未来10天内等。

比如：2009年1月15日需交租金，今天是2008年12月14日。我需要提前30天，或10天做提醒。

Henry D. Sy

Private Sub 签约时间开始_AfterUpdate()
    Dim strWhere As String
    strWhere = "DateDiff('d', Date(), 付款日期)<= " & Me.签约时间开始 & " and DateDiff('d', Date(), 付款日期)>=0"
    Me.b.Form.RecordSource = "select * from b where " & strWhere
End Sub

boy1

[:50] [:50] [:50] [:50] 谢谢版主啊，您辛苦了。版主无私的版主让我非常感动，我会尽我的能力来回馈我们的论坛。也祝我们的论坛越办越好。