标题: 如何在组合框同一属性中写两种控制代码 [打印本页] 作者: 夜漩苍紫 时间: 2004-4-15 05:33 标题: 如何在组合框同一属性中写两种控制代码 我正在做的数据库需要在一个组合框中的获得焦点命令中完成两项工作:一,根据上一组合框数据罗列相关数据;二,当TAB到其上时能够自动打开,但我在写代码时却遇到了两种代玛不能共存的现象.
方式1:
Private Sub 操作ID_GotFocus()
'如果新数据选项为真,则自动展开'
If Me.NewRecord Then Me.操作ID.Dropdown
End Sub
Private Sub 操作ID_GotFocus()
'根据选择的工序显示操作
'RowSource就是行来源
Me.操作ID.RowSource = "SELECT 操作ID, 操作 FROM 操作 WHERE (工序ID=" + Str(Me.工序ID) + ")"
End Sub
但提示出现二义
方式二:
Private Sub 操作ID_GotFocus()
'如果新数据选项为真,则自动展开'
If Me.NewRecord Then Me.操作ID.Dropdown
'根据选择的工序显示操作
'RowSource就是行来源
Me.操作ID.RowSource = "SELECT 操作ID, 操作 FROM 操作 WHERE (工序ID=" + Str(Me.工序ID) + ")"
End Sub
这样却不能识别,希望哪位高人能够指点一二,多谢多谢!!!!!!作者: sea.er 时间: 2004-4-15 05:48
不能识别是什么意思，你的语句不完整啊，没有"end if"作者: 夜漩苍紫 时间: 2004-4-15 06:12
但如果加上END IF,如下:
Private Sub 操作ID_GotFocus()
'根据选择的工序显示操作
'RowSource就是行来源
Me.操作ID.RowSource = "SELECT 操作ID, 操作 FROM 操作 WHERE (工序ID=" + Str(Me.工序ID) + ")"
If Me.NewRecord Then Me.操作ID.Dropdown
End If
End Sub
会提示END IF没有IF块????作者: sea.er 时间: 2004-4-15 06:20
If Me.NewRecord Then
Me.操作ID.Dropdown
End If