摘要: Private Sub CommandButton1_Click() '向SDE服务器添加本地shape文件 If TextBox1.Text = "" Then MsgBox "缺少上传文件!", vbCritical, "警告" Exit Sub End If Dim fWor As IFeatureWorkspace ... 阅读全文
posted @ 2007-09-14 10:59 columbus2 阅读(643) 评论(1) 推荐(0)