Foxtable(狐表)用户栏目专家坐堂 → ComboBox的问题??(已解决)


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

主题:ComboBox的问题??(已解决)

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


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
ComboBox的问题??(已解决)  发帖心情 Post By:2008/12/20 20:49:00 [只看该作者]

通过单元格输入与通过ComboBox的输入得到的结果是不同的...
表After.Edit里这段代码在ComboBox里应该如何表达?
if e.col.name = "入院诊断" then
 if e.row("入院诊断") > "" then
   dim a as string
   a = e.row("入院诊断")
    if a.indexof(":") > -1 then
      dim b as integer
         b = a.indexof(":")
         a = a.substring(b+1)
     e.row("入院诊断")  = a
    end if
 end if
end if



图片点击可在新窗口打开查看此主题相关图片如下:001.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:002.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:003.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:004.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2008-12-22 10:44:17编辑过]

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


加好友 发短信 菜鸟中的老鸟
等级:七尾狐 帖子:1486 积分:10064 威望:0 精华:9 注册:2008/11/14 8:54:00
  发帖心情 Post By:2008/12/20 21:15:00 [只看该作者]

改成这样放哪里啊?好象哪里都会报错....
dim a as string = e.form.Controls("ComboBox1").value
    if a.indexof(":") > -1 then
      dim b as integer
         b = a.indexof(":")
         a = a.substring(b+1)
e.form.Controls("ComboBox1").value = a
         end if
[此贴子已经被作者于2008-12-20 21:16:59编辑过]

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


加好友 发短信 F6
等级:狐精 帖子:3030 积分:19188 威望:0 精华:2 注册:2008/9/1 7:50:00
  发帖心情 Post By:2008/12/21 9:21:00 [只看该作者]

Validating事件中
dim a as string = e.Sender.Value 
if  a.indexof(":") > -1 then
    dim b as integer
    b = a.indexof(":")
    a = a.substring(b+1)
    e.Sender.Value  = a
    e.Cancel = False
else

    e.Cancel = True
 end if
[此贴子已经被作者于2008-12-21 9:25:10编辑过]

 回到顶部