Private Sub SetGridTitle()
   With flexGrid
      .FormatString = "流水号|录入时间|赔案号|保单号|被保险人|厂牌型号|保险类型|牌照号码|使用性质|业务部门|业务员|理赔员|立案日期|合计"
      
      .ColAlignment(0) = flexAlignLeftCenter
      .ColAlignment(1) = flexAlignLeftCenter
      .ColAlignment(2) = flexAlignLeftCenter
      .ColAlignment(3) = flexAlignLeftCenter
      .ColAlignment(4) = flexAlignLeftCenter
      .ColAlignment(5) = flexAlignLeftCenter
      .ColAlignment(6) = flexAlignLeftCenter
      .ColAlignment(7) = flexAlignLeftCenter
      .ColAlignment(8) = flexAlignLeftCenter
      .ColAlignment(9) = flexAlignLeftCenter
      .ColAlignment(10) = flexAlignLeftCenter
      .ColAlignment(11) = flexAlignLeftCenter
      .ColAlignment(12) = flexAlignLeftCenter
      .ColAlignment(13) = flexAlignLeftCenter
      .TextStyleFixed = flexTextInsetLight
   End With
End Sub
------------------------------------------------
sqltxt = "select * from useb"
rs.Open sqltxt, cnn, adOpenKeyset, adLockBatchOptimistic
If rs.EOF Then
MsgBox ("暂无用户")
MSFlexGrid1.Rows = 0
MSFlexGrid1.Cols = 0
Else
With MSFlexGrid1
.Rows = rs.RecordCount + 1
.Cols = rs.Fields.Count
For i = 0 To rs.Fields.Count - 1
.TextMatrix(0, i) = rs.Fields(i).Name
Next i
For t = 1 To rs.RecordCount

For i = 0 To rs.Fields.Count - 1
.TextMatrix(t, i) = rs.Fields(i)
Next i
rs.MoveNext
Next t
End With
End If

评论