Foxtable(狐表)用户栏目专家坐堂 → [求助]动态绑定表双击鼠标不能录入数据


  共有4841人关注过本帖树形打印复制链接

主题:[求助]动态绑定表双击鼠标不能录入数据

帅哥哟,离线,有人找我吗?
zyqzyy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
[求助]动态绑定表双击鼠标不能录入数据  发帖心情 Post By:2013/12/21 20:33:00 [只看该作者]

动态绑定表双击鼠标不能录入数据,其它的键盘录入正常!

另:在压缩项目时出现

 

.NET Framework 版本:2.0.50727.7905
Foxtable 版本:2013.10.13.1
错误所在事件:
详细错误信息:
不能打开数据库 ''。应用程序可能无法识别该数据库,或文件可能损坏。

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:窗口中的table_201312212030.zip


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4761 积分:34613 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
zyqzyy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By: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
 
问题如何解决,找不到思路!!

 回到顶部
帅哥哟,离线,有人找我吗?
zyqzyy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By:2013/12/22 12:34:00 [只看该作者]

问题没能解决,请高手们指点!


 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4761 积分:34613 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2013/12/22 12:48:00 [只看该作者]

t.BindingField指的是绑定字段而不是表

 回到顶部
帅哥哟,离线,有人找我吗?
zyqzyy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By:2013/12/22 14:44:00 [只看该作者]

如何办呢?

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2013/12/22 19:26:00 [只看该作者]

简单呀 换成具体的字段名称

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/12/22 19:46:00 [只看该作者]

 虽然不是很了解楼主的意图,应该是这个意思

 
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗口中的table.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
zyqzyy
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:822 积分:5885 威望:0 精华:0 注册:2013/7/29 12:00:00
  发帖心情 Post By:2013/12/22 20:15:00 [只看该作者]

谢谢“甜”老师,您已经很理解我的意图了,再次感谢!!

 回到顶部