中科新闻网熊祁否认自己是女的:请高手帮忙，急用
来源：百度文库 编辑：中科新闻网 时间：2024/05/15 04:58:21
表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
这段代码计算第一个记录中非空字段的个数。如果要计算其他记录，请将记录指针移动到该记录。