2009-09-01 26 views
0
Dim xbg As Rm 

xbg.LobId = cmb_lob.SelectedValue 
xbg.Mobile = mobno.Text 
xbg.BusinessFax = faxno.Text 
xbg.BusinessPhone = phno.Text 
xbg.Save() 

我有一个组合框,在模块中输入时不是必需的。因此用户可以选择组合cox中的空值,我希望为该记录在Oracle数据库中保存空值。我有以下情况,但没有得到结果。你被要求请帮助如何在亚音速中保存空值

if cmb_lob.selectedindex=-1 then 
    xbg.lob=dbnull 
else 
    xbg.LobId = cmb_lob.SelectedValue 

实际的问题出现时,第一个用户与选择保存记录在组合框中,然后用户编辑该记录并从组合框中选择空白。现在我必须在数据库中用null替换combox框的值。

回答

0

尝试:

if cmb_lob.selectedindex <> -1 then 
    xbg.LobId = cmb_lob.SelectedValue 
else 
    xbg.LobId = Nothing 'suggested by John Shean (see comments) 

因此,如果选择值才为它分配到现场其他人离开它,因为它是(空)

+0

实际的问题出现时,首先用户组合框选择保存记录,则用户编辑该记录并从组合框中选择空白。现在我必须在数据库中用null替换combox框的值。 – 2009-09-01 07:55:55

+0

任何帮助赞赏 – 2009-09-01 07:57:02

+0

请尝试DbNull.Value – TheVillageIdiot 2009-09-01 10:32:25

1

将其设置为空或任何VB认为空 - 它将以这种方式在DB中设置。

0

尝试xbg.LobId =没有代替 - 约翰·希恩