江苏水利网:其中的ROWS是什么
来源:百度文库 编辑:中科新闻网 时间:2024/05/15 09:36:12
Private Sub Command1_Click()
If GridData.Rows <= 1 Then '首行显示字段名
MsgBox "没有数据,无法输出!", vbOKOnly, "提示"
Else
Call OutPut(GridData) 'OutPut-自定义函数(输出到Excel)
End If
End Sub
If GridData.Rows <= 1 Then '首行显示字段名
MsgBox "没有数据,无法输出!", vbOKOnly, "提示"
Else
Call OutPut(GridData) 'OutPut-自定义函数(输出到Excel)
End If
End Sub