有点小问题--记录字段为空在文本框中的显示问题
在执行查询的时候,如果access的“预支金额”为空,执行YzJe.Text = rst.Fields("预支金额").Value的时候会出现“无效使用null”,有什么办法能让此条记录的所有字段不管是不是有内容都显示出来,不出错!因为我的想法是如果没有内容可能就要执行修改!if isnull( rst.Fields("预支金额").Value) then YzJe.Text= "" else YzJe.Text = rst.Fields("预支金额").Value end if
Private Sub Command1_Click() Dim rst As New ADODB.Recordset, cn As New ADODB.Connection '数据库连接略 strSQL = "Select * From 数据表" rst.Open strSQL, cn, 3, 2 Do While Not rst.EOF If IsNull(rst.Fields("预支金额")) = True Then rst.Fields("预支金额") = 0 rst.Update End If rst.MoveNext Loop rst.Close MsgBox "预支金额字段中的 Null 值全部修改为0了!" End Sub
[此贴子已经被作者于2017-2-28 19:24编辑过]