摘要:
Dim X34 As String ="0123456789ABCDEFGHJKLMNPQRSTUVWXYZ" '34进制,去除I和O Private Function CovvertTo34(ByVal val As Integer) As String Dim Result As String 阅读全文
摘要:
Private Sub savefile(ByVal dgv2 As DataTable) Dim app As Object = CreateObject("Excel.Application") Dim xlbook As Object = app.workbooks.add() Dim xR 阅读全文