- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]输入数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=70542)
-- 发布时间：2015/6/24 8:03:00
-- [求助]输入数据
狐狸老师早上好，又要麻烦你了。如果要修改数据必须回到表股票中不能在窗口中修改。
此主题相关图片如下：图像 2.png
-- 发布时间：2015/6/24 8:36:00
--
你这个是副本表吧.那你就得把代码也写到这个窗口表的事件.
-- 发布时间：2015/6/24 8:51:00
--
有劳我的超级版主了。感谢
-- 发布时间：2015/6/24 11:29:00
--
狐狸老师早上好，又要麻烦你了。如果要修改数据必须回到表股票中不能在窗口中修改。
此主题相关图片如下：图像 2.png
谢谢狐狸老师。感谢
-- 发布时间：2015/6/24 11:31:00
--
txtBox = e.Form.Controls("txtSale")
If txtBox.text <> "" Then
txtBox.ReadOnly = BooleanEnum.True
Else
txtBox.ReadOnly = BooleanEnum.Default
End If
-- 发布时间：2015/6/24 11:34:00
--
那你上传具体的例子啊。
-- 发布时间：2015/6/24 12:38:00
--
狐狸老师早上好，又要麻烦你了。如果要修改数据必须回到表股票中不能在窗口中修改。
此主题相关图片如下：图像 2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:股票.rar |
-- 发布时间：2015/6/24 14:15:00
--
你上传的例子,你窗口和你表不是绑定的啊,绑定是另外的表啊.
-- 发布时间：2015/6/24 14:17:00
--
doubleClick 事件
If Tables("股票").Current.IsNull("股票代码") Then
Dim cr As Row = Tables("股票").Current
cr("股票名称") = e.Row("上市公司简称")
cr("股票代码") = e.Row("上市公司股票代码")
cr("板块") = e.Row("板块")
cr("证交所") = e.Row("证交所")
cr("股票等级") = e.Row("股票等级")
cr("行业") = e.Row("行业大类代码及大类名称")
cr("门类") = e.Row("门类代码及名称")
End If
Forms("查询").DropDownBox.CloseDropDown()
keyDown事件
If e.KeyCode = Keys.Enter Then
If Tables("股票").Current.IsNull("股票代码") Then
Tables("股票").Current("股票名称") = e.Form.Controls("Table1").Current("上市公司简称")
Tables("股票").Current("股票代码") = e.Form.Controls("Table1").Current("上市公司股票代码")
Tables("股票").Current("板块") = e.Form.Controls("Table1").Current("板块")
Tables("股票").Current("证交所") = e.Form.Controls("Table1").Current("证交所")
Tables("股票").Current("股票等级") = e.Form.Controls("Table1").Current("股票等级")
Tables("股票").Current("行业") = e.Form.Controls("Table1").Current("行业大类代码及大类名称")
Tables("股票").Current("门类") = e.Form.Controls("Table1").Current("门类代码及名称")
End If
Forms("查询").DropDownBox.CloseDropDown()
End If
-- 发布时间：2015/6/24 16:58:00
--
谢谢感谢老师给我写如此长的代码。老师我的意思是已经输入到股票表中的内容不能在窗口中修改，有时候操作不当点击自动输入窗口内容为更改。不好意思。