文本框空值问题，只有10分了，不好意思啊

Question

我想取得5个文本框里边数字的值，这些文本框都是绑定数据库字段的，但有的文本框可能没有输入，估计会是NULL，通过什么方法，把这些NULL转化为0呢，设定默认值的方法不好，我需要用函数的方法，但不知道VB中用哪些函数，函数该怎么用？

Answer 1

Private Function nulltozero(txtbox As TextBox) As Integer
If txtbox.Text = "" Then
txtbox.Text = 0
End If
End Function

Answer 2

应该使用isnull函数进行判断
if isnull(text1.text) then text1.text=""

Answer 3

if isnull(text1.text) then text1.text=0

Answer 4

for i=0 to 30 
 if text1(i).text="" then 
   text1(i).text="0"
 endif
next 
有31个TEXT　控件　
你的传述有个错误，既然是用文本框输入，那么只能　是为　"" ,不会出现　Text1.text=null 的现象。
你没有输入　任何字符时　Text1.text 只会　为　<""> .　
所以用为"" 来判定是否需要变成字符“0”就可以。　但在数据库中是无法读出“”　的所以出现　了错误　。

Answer 5

dim lngtmp as longlngtmp=iif(isnull(text1.text),0,clng(text1.text))

Answer 6

同意  rosyou(残域)
用 强制转换函数 val()