Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
菜鸟foxtable 发表于: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编辑过]
2楼
菜鸟foxtable 发表于: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编辑过]
3楼
kylin 发表于: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编辑过]
共3 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02734 s, 2 queries.