文本框默认值设置,该如何处理

fieldset{padding:10px;}

文本框默认值设置我用VBA做了一个查询窗体，有最大值和最小值两个文本框，用SQL语句查询介于最大值和最小值之间的记录，请问要使文本框为空时默认为一个值（即未填入查询条件时也可按默认值查询出记录），代码如何写？我写的是：If coalmax1.Text = "" Then coalmax1.Text = 3.402823E+38运行出错，哪位高手帮忙看下，不甚感激——解决方案——————————————————–coalmax1.Text = cstr(3.402823E+38),试试数字太大，不一定行——解决方案——————————————————–coalmax1.Text = "" 这句把coalmax1控件弄成死循环了——解决方案——————————————————–VB code

Private Sub coalmax1_Change()    Static lFlag As Long    If (lFlag) Then Exit Sub    If (Not IsNumeric(coalmax1) And coalmax1.Text <> "") Then        MsgBox "请输入数字", 48        lFlag = -1        coalmax1.Text = ""        lFlag = 0: Exit Sub    End If    If coalmax1.Text = "" Then        coalmax1.Text = 3.402823E+38        coalmax1.SelStart = 0        coalmax1.SelLength = &H7FFFFF    End IfEnd Sub你会发现，曾经以为很难做到的事情，

相关文章：

你感兴趣的文章：

标签云：