主题：[求助]输入数据

狐狸老师早上好，又要麻烦你了。如果要修改数据必须回到表股piao中不能在窗口中修改。

此主题相关图片如下：图像 2.png

有劳我的超级版主了。感谢

谢谢狐狸老师。感谢

 那你上传具体的例子啊。

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

谢谢感谢老师给我写如此长的代码。老师我的意思是已经输入到股piao表中的内容不能在窗口中修改，有时候操作不当点击自动输入窗口内容为更改。不好意思。