- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]动态绑定表双击鼠标不能录入数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44053)
-- 发布时间：2013/12/21 20:33:00
-- [求助]动态绑定表双击鼠标不能录入数据
动态绑定表双击鼠标不能录入数据，其它的键盘录入正常！
另：在压缩项目时出现
.NET Framework 版本：2.0.50727.7905
Foxtable 版本：2013.10.13.1
错误所在事件：
详细错误信息：
不能打开数据库 \'\'。应用程序可能无法识别该数据库，或文件可能损坏。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口中的table_201312212030.zip |
-- 发布时间：2013/12/21 21:48:00
--
看看红色部分表达的是什么意思
Dim tbl As Table = Tables("窗口1_Table1")
Dim t As WinForm.Table = e.Form.Controls("Table1")
If tbl.Current IsNot Nothing Then
If t.BindingField Like "BLZDZDK" Then
Tables("NO41").Current("JBMM") = tbl.Current("疾病编码")
Tables("NO41").Current("BLZD") = tbl.Current("疾病名称")
End If
If t.BindingField Like "ZLXTX" Then
Tables("NO41").Current("JBMM") = tbl.Current("疾病编码")
Tables("NO41").Current("BLZD") = tbl.Current("肿瘤形态学诊断")
End If
e.Cancel = True
e.Form.DropDownBox.CloseDropDown()
End If
-- 发布时间：2013/12/21 23:08:00
--
Dim tbl As Table = Tables("窗口1_Table1")
Dim t As WinForm.Table = e.Form.Controls("Table1")
If tbl.Current IsNot Nothing Then
If t.BindingField Like "BLZDZDK" Then ‘判断绑定的是哪个表！！
Tables("NO41").Current("JBMM") = tbl.Current("疾病编码")
Tables("NO41").Current("BLZD") = tbl.Current("疾病名称")
End If
If t.BindingField Like "ZLXTX" Then
Tables("NO41").Current("JBMM") = tbl.Current("疾病编码")
Tables("NO41").Current("BLZD") = tbl.Current("肿瘤形态学诊断")
End If
e.Cancel = True
e.Form.DropDownBox.CloseDropDown()
End If
问题如何解决，找不到思路！！
-- 发布时间：2013/12/22 12:34:00
--
问题没能解决，请高手们指点！
-- 发布时间：2013/12/22 12:48:00
--
t.BindingField指的是绑定字段而不是表
-- 发布时间：2013/12/22 14:44:00
--
如何办呢？
-- 发布时间：2013/12/22 19:26:00
--
简单呀 换成具体的字段名称
-- 发布时间：2013/12/22 19:46:00
--
虽然不是很了解楼主的意图，应该是这个意思
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口中的table.foxdb |
-- 发布时间：2013/12/22 20:15:00
--
谢谢“甜”老师，您已经很理解我的意图了，再次感谢！！