上一页 1 ··· 27 28 29 30 31 32 33 34 35 ··· 39 下一页
摘要: 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)
上一页 1 ··· 27 28 29 30 31 32 33 34 35 ··· 39 下一页