摘要： Update TESTDTA.F4101set IMAITM = right(replicate('0',14) + convert(varchar(14),IMAITM),14) From TESTDTA.F4101 阅读全文

摘要： Private Sub Command1_Click()'从IP库导出IP.xls 'On Error GoTo myErr Dim FilePath As String, tmp As Byte Dim excel_app As Object Dim row As Integer '建立 Excel 应用程序 Set excel_app = CreateObject("Excel.Application") '显示Excel应用程序 excel_app.Visible = True '添加新工作簿： excel_app.WorkBo 阅读全文