主题：[求助]输入数据

 那你上传具体的例子啊。

doubleClick 事件

 

If Tables("股piao").Current.IsNull("股piao代码") Then
    Dim cr As Row = Tables("股piao").Current
    cr("股piao名称") = e.Row("上市公司简称")
    cr("股piao代码") = e.Row("上市公司股piao代码")
    cr("板块") = e.Row("板块")
    cr("证交所") = e.Row("证交所")
    cr("股piao等级") = e.Row("股piao等级")
    cr("行业") = e.Row("行业大类代码及大类名称")
    cr("门类") = e.Row("门类代码及名称")
End If

Forms("查询").DropDownBox.CloseDropDown()

 

 

keyDown事件

 

If e.KeyCode = Keys.Enter Then
    If Tables("股piao").Current.IsNull("股piao代码") Then
        Tables("股piao").Current("股piao名称") = e.Form.Controls("Table1").Current("上市公司简称")
        Tables("股piao").Current("股piao代码") = e.Form.Controls("Table1").Current("上市公司股piao代码")
        Tables("股piao").Current("板块") = e.Form.Controls("Table1").Current("板块")
        Tables("股piao").Current("证交所") = e.Form.Controls("Table1").Current("证交所")
        Tables("股piao").Current("股piao等级") = e.Form.Controls("Table1").Current("股piao等级")
        Tables("股piao").Current("行业") = e.Form.Controls("Table1").Current("行业大类代码及大类名称")
        Tables("股piao").Current("门类") = e.Form.Controls("Table1").Current("门类代码及名称")
    End If
    Forms("查询").DropDownBox.CloseDropDown()
End If

 不明白你的意思。9楼的代码就是啊，如果输入了内容就不能在窗口里点击输入了啊。

 

写在下拉窗口，也就是查询窗口的表的事件里去。