发布时间：2024-11-04 11:10:31
w = Me.Width / Combo1.WidthEnd SubPrivate Sub Form_Resize() Combo1.Left = Me.Width / l......【阅读全文】
发布时间：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......【阅读全文】
