摘要: 1 Private Sub GridToExl_Click() 2 On Error Resume Next 3 If DataGrid1.Columns.Count = 0 Then 4 5 MsgBox "抱歉,没有数据可供打印!", vbOKOnly, "提示" 6 Exit Sub 7 En 阅读全文
posted @ 2014-11-17 17:00 久_久 阅读(649) 评论(0) 推荐(0) 编辑