以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ComboBox的问题??(已解决)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1464)

--  作者:菜鸟foxtable
--  发布时间:2008/12/20 20:49:00
--  ComboBox的问题??(已解决)
通过单元格输入与通过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
--  发布时间: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
--  发布时间: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编辑过]