杭州交通信息网中国北方和南方:请高手帮忙，急用
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/28 16:21:34
表member中有字段A、B、C、D、E、F、G、H，每一条记录中有几个字段为空，我想计算非空字段的个数，代码怎么编写。VB
Private Sub subCount(objField1)
Dim intCount As Integer
For Each i In objField1
If Not IsNull(i) Then intCount = intCount + 1
Next
MsgBox ("非空字段有" & intCount & "个。")
End Sub
Private Sub Command1_Click()
Set objField1 = Data1.Recordset.Fields
subCount objField1
End Sub
这段代码计算第一个记录中非空字段的个数。如果要计算其他记录，请将记录指针移动到该记录。