Office中国论坛/Access中国论坛

标题: 帮我看看这段代码 [打印本页]

作者: george 时间: 2005-8-4 21:10
标题: 帮我看看这段代码
Private Sub 类型_AfterUpdate()

Me.摘要.RowSourceType = "Table/Query"

If IsNull(Me.摘要) = False Then

      If Me.类型 = "入库单" Then

         Me.摘要.RowSource = "入库摘要"

      Else

         Me.摘要.RowSource = "出库摘要"

      End If

Else

      Me.摘要.RowSource = ""

End If

End Sub

作者: 海狸先生 时间: 2005-8-4 23:45
一眼看去，好像没什么问题要不　If IsNull(Me.摘要) = False Then

改成　if not isnull(Me.摘要) then

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