Public Property Let ColWidth(ByVal NewValue As String)
Dim FirstAddress As Integer
Dim strTemp As String
Dim intFlxgrdWidth As Integer
Dim i As Integer
intFlxgrdWidth = 0
m_ColWidth = NewValue
PropertyChanged "ColWidth"
strTemp = m_ColWidth
On Error GoTo ColWidthErr
For i = 1 To m_RecordSet.Fields.Count
FirstAddress = InStr(strTemp, ",")
FirstAddress = IIf(FirstAddress > 0, FirstAddress, Len(strTemp) + 1)
FlxGrd.ColWidth(i - 1) = IIf(Val(Left(strTemp, FirstAddress - 1)) >= 0, Val(Left(strTemp, FirstAddress - 1)), m_def_GrdWidth)
strTemp = Right(strTemp, Len(strTemp) - FirstAddress)
intFlxgrdWidth = intFlxgrdWidth + FlxGrd.ColWidth(i - 1)
Next i
If intFlxgrdWidth < MaxFlxgrdWidth Then '小于最大宽度
FlxGrd.Width = intFlxgrdWidth
Else
FlxGrd.Width = MaxFlxgrdWidth
End If
If intFlxgrdWidth < Txt.Width Then '大于TXTFill宽度
FlxGrd.Width = Txt.Width
End If
Exit Property
ColWidthErr:
End Property