- 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)
-- 发布时间：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编辑过]
-- 发布时间：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编辑过]
-- 发布时间：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编辑过]