发布时间：2024-10-16 15:44:09
'''1、序号：公用模块Public Sub Autoxh(Form As Form, Grid As MSHFlexGrid) Grid.TextMatrix(0, 0) = "xh" '''加序号 Dim a As Long 'For a = 1 To rs.RecordCount ' 直接写语句时，用此得序号 For a =.........【阅读全文】
发布时间：2024-06-21 14:36:05
On Error Resume NextIf MSHFlexGrid1.TextMatrix(1, 1) = "" Then MsgBox "无记录可导出", 0 + vbExclamation, "提示" Exit SubElse Dim strTemp As String Dim i As Integer, j As Integer strTemp = "" For i = 1 To MSHFlex.........【阅读全文】
发布时间：2024-06-12 11:35:41
https://blog.csdn.net/hu5566798/article/details/114699369......【阅读全文】
发布时间：2024-05-19 14:06:41
32位系统：C:\Windows\system32\odbcad32.exeC:\Windows\SysWOW64\odbcad32.exe......【阅读全文】
