ʰ

VB开发的ERP系统

                    If Text1.Text <> "" Or Text2.Text <> "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 0)), "yyyy-mm-dd") < Format(Trim(Text1.Text), "yyyy-mm-dd") Or Format(Trim(.TextMatrix(Rowjsq, 0)), "yyyy-mm-dd") > Format(Trim(Text2.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '结算方式
                    If Combo1.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 1)) <> Trim(Mid(Combo1.Text, 4)) Then
                            A = True
                        End If
                    End If
                    '票号
                    If Text3 <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 2)) <> Trim(Text3.Text) Then
                            A = True
                        End If
                    End If
                    '方向借方
                    If Option2.Value = True Then
                        If .TextMatrix(Rowjsq, 3) <> "借" Then
                            A = True
                        End If
                    End If
                    '方向贷方
                    If Option3.Value = True Then
                        If .TextMatrix(Rowjsq, 3) <> "贷" Then
                            A = True
                        End If
                    End If
                    '金额
                    If Text4.Text <> "" Then
                        If Val(Format(.TextMatrix(Rowjsq, 4), "0.00")) <> Val(Text4.Text) Then
                            A = True
                        End If
                    End If
                    
                End If
                
                If A = -1 Then
                    .RowHidden(Rowjsq) = True
                Else
                    .RowHidden(Rowjsq) = False
                End If
                
            Next Rowjsq
            
        End With
        
        With YH_FrmZddz.vsFlexGrid1
            
            For Rowjsq = 1 To .Rows - 1
                A = False
                If Check1.Value <> 1 Then
                    '截止日期
                    If Text1.Text <> "" Or Text2.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 0)) < Text1.Text Or Trim(.TextMatrix(Rowjsq, 0)) > Text2.Text Then
                            A = True
                        End If
                    End If
                    '结算方式
                    If Combo1.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 2)) <> Trim(Mid(Combo1.Text, 4)) Then
                            A = True
                        End If
                    End If
                    '票号
                    If Text3 <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 3)) <> Trim(Text3.Text) Then
                            A = True
                        End If
                    End If
                    '方向借方
                    If Option2.Value = True Then
                        If .TextMatrix(Rowjsq, 4) <> "借" Then
                            A = True
                        End If
                    End If
                    '方向贷方
                    If Option3.Value = True Then
                        If .TextMatrix(Rowjsq, 4) <> "贷" Then
                            A = True
                        End If
                    End If
                    '金额
                    If Text4.Text <> "" Then
                        If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> Val(Text4.Text) Then
                            A = True
                        End If
                    End If
                    
                End If
                
                If A = -1 Then
                    .RowHidden(Rowjsq) = True
                Else
                    .RowHidden(Rowjsq) = False
                End If
                
            Next Rowjsq
            
        End With
        
    Else
        With YH_FrmDzdCx.WglrGrid
            For Rowjsq = 1 To .Rows - 1
                A = False
                If Check1.Value <> 1 Then
                    '截止日期
                    If Text1.Text <> "" And Trim(Text2.Text) <> "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") < Format(Trim(Text1.Text), "yyyy-mm-dd") Or Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") > Format(Trim(Text2.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '截止日期
                    If Text1.Text <> "" And Trim(Text2.Text) = "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") < Format(Trim(Text1.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '截止日期
                    If Trim(Text1.Text) = "" And Text2.Text <> "" Then
                        If Format(Trim(.TextMatrix(Rowjsq, 2)), "yyyy-mm-dd") > Format(Trim(Text2.Text), "yyyy-mm-dd") Then
                            A = True
                        End If
                    End If
                    '结算方式
                    If Combo1.Text <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 3)) <> Trim(Mid(Combo1.Text, 4)) Then
                            A = True
                        End If
                    End If
                    '票号
                    If Text3 <> "" Then
                        If Trim(.TextMatrix(Rowjsq, 4)) <> Trim(Text3.Text) Then
                            A = True
                        End If
                    End If
                    '方向借方
                    If Option2.Value = True Then
                        If Val(Format(.TextMatrix(Rowjsq, 6), "0.00")) <> 0 Then
                            A = True
                        End If
                        
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            End If
                        End If
                    
                    End If
                    
                    '方向贷方
                    If Option3.Value = True Then
                        If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> 0 Then
                            A = True
                        End If
                    
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 6), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            End If
                        End If
                    
                    End If
                    
                    '方向不限
                    If Option1.Value = True Then
                        
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 5), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            End If
                        End If
                        
                        '金额
                        If Text4.Text <> "" Then
                            If Val(Format(.TextMatrix(Rowjsq, 6), "0.00")) <> Val(Text4.Text) Then
                                A = True
                            Else
                                A = False
                            End If
                        End If
                    
                    End If
                    
                End If
                
                If A = -1 Then
                    .RowHidden(Rowjsq) = True
                Else
                    .RowHidden(Rowjsq) = False
                End If
                
            Next Rowjsq
        End With
        
    End If
    YH_FrmGltj.Hide
End Sub

'退出
Private Sub Command2_Click()
    Unload Me
End Sub

'选择日期
Private Sub Command3_Click()
    XT_calendar.Show 1
    Text1.Text = Xtfhcs
    Text1.Tag = Xtfhcsfz
    Text1.SetFocus
End Sub

'选择日期
Private Sub Command4_Click()
    XT_calendar.Show 1
    Text2.Text = Xtfhcs
    Text2.Tag = Xtfhcsfz
    Text2.SetFocus
End Sub

'调入窗体
Private Sub Form_Load()
    Dim RecTemp As New ADODB.Recordset
    SqlStr = "select * from Gy_settlement"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    Do While Not RecTemp.EOF()
        Combo1.AddItem RecTemp.Fields("sscode") + Trim(RecTemp.Fields("ssname"))
        RecTemp.MoveNext
    Loop
    Command3.Enabled = True
    Command4.Enabled = True
End Sub