修改状态标志
Private Sub Command1_Click() Unload Me End Sub
Private Sub Form_Load() On Error GoTo loaderror Dim sql As String
displaygrid1 '调用显示displaygrid1子程序 loaderror:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
'显示msflexgrid1子程序 Public Sub displaygrid1() Dim i As Integer
On Error GoTo displayerror setgrid setgridhead
MSFlexGrid1.Row = 0 If Not rs_data1.EOF Then rs_data1.MoveFirst Do While Not rs_data1.EOF
MSFlexGrid1.Row = MSFlexGrid1.Row + 1 MSFlexGrid1.Col = 0
If Not IsNull(rs_data1.Fields(0)) Then MSFlexGrid1.Text = rs_data1.Fields(0) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 1
If Not IsNull(rs_data1.Fields(1)) Then MSFlexGrid1.Text = rs_data1.Fields(1) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 2
If Not IsNull(rs_data1.Fields(2)) Then MSFlexGrid1.Text = rs_data1.Fields(2) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 3
If Not IsNull(rs_data1.Fields(3)) Then MSFlexGrid1.Text = rs_data1.Fields(3) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 4
If Not IsNull(rs_data1.Fields(4)) Then MSFlexGrid1.Text = rs_data1.Fields(4) Else
MSFlexGrid1.Text = \
MSFlexGrid1.Col = 5
If Not IsNull(rs_data1.Fields(5)) Then MSFlexGrid1.Text = rs_data1.Fields(5) Else MSFlexGrid1.Text = \
MSFlexGrid1.Col = 6
If rs_data1.Fields(6) = True Then MSFlexGrid1.Text = \进库\出库\
rs_data1.MoveNext Loop End If displayerror:
If Err.Number <> 0 Then MsgBox Err.Description End If End Sub
Public Sub setgrid() Dim i As Integer On Error GoTo seterror With MSFlexGrid1
.ScrollBars = flexScrollBarBoth .FixedCols = 0
.Rows = rs_data1.RecordCount + 1 .Cols = 7
.SelectionMode = flexSelectionByRow For i = 0 To .Rows - 1 .RowHeight(i) = 315 Next
For i = 0 To .Cols - 1 .ColWidth(i) = 1300 Next i End With Exit Sub seterror:
MsgBox Err.Description End Sub
Public Sub setgridhead() On Error GoTo setheaderror
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = \提货单号\MSFlexGrid1.Col = 1 MSFlexGrid1.Text = \日期\MSFlexGrid1.Col = 2
MSFlexGrid1.Text = \车辆名称\MSFlexGrid1.Col = 3
MSFlexGrid1.Text = \库存位号\MSFlexGrid1.Col = 4
MSFlexGrid1.Text = \经手人\MSFlexGrid1.Col = 5 MSFlexGrid1.Text = \备注\MSFlexGrid1.Col = 6
MSFlexGrid1.Text = \进出库\Exit Sub setheaderror:
MsgBox Err.Description End Sub
Private Sub Form_Unload(Cancel As Integer) findok = False rs_data1.Close
If showgrid2 = True Then rs_data2.Close End If End Sub
汇总代码如下：
Option Explicit
Dim rs_sum As New ADODB.Recordset Dim addup As Double
Private Sub Form_Load() Dim sql As String Select Case summary_menu
Case \按入库单号汇总 Label1.Caption = \按入库单号汇总\