快，救我一命！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Question

有一段程序不知对你有用不，可以参考
sSql = ""
           For i = 0 To MSFlexGrid1.Rows - 1
           If sSql <> "" Then
               sSql = sSql & "Or" & "{krid}=" & MSFlexGrid1.TextMatrix(i, 0)
           Else
               sSql = "{krid}=" & MSFlexGrid1.TextMatrix(1, 0)
           End If
           Next
           If ssq = "" Then
              Exit Sub
           End If
            With CrystalReport1
            .Connect = sDNS
             .WindowState = crptMaximized
             .DiscardSavedData = True
             .SelectionFormula = sSql
             .ReportFileName = App.Path & "\tdryxx.rpt"
             .Action = 1
           End With