16,721
社区成员




Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
a = "a"
If Button1.Text = "范围" Then
Dim objfw As New fw
'objfw.MdiParent = Form1
objfw.ShowDialog()
Dim strFilter As String = objfw.TextBox1.Text
view = datacp1.Tables("ss").DefaultView
Dim strfilter1 As String = objfw.TextBox3.Text
Dim strfilter3 As String = objfw.an
Me.CheckBox1.Enabled = True
If objfw.str2 = " between " Then
If objfw.str2 = "between" And (objfw.strr = "添加日期" Or objfw.strr = "更新日期") Then
view.RowFilter = "Convert(" & objfw.strr & ", System.String)" & ">=" & "'" & strFilter & "'" And view.RowFilter = "Convert(" & objfw.strr & ", System.String)" & "<=" & "'" & strfilter1 & "'"
Else
view.RowFilter = "Convert(" & objfw.strr & ", System.String)" & ">=" & "'" & strFilter & "'" & " and " & objfw.strr & "<='" & strfilter1 & "'"
End If
Else
' view.RowFilter = "Convert(" & objfw.strr & ", System.String)" & ">=" & "'" & strFilter & "'" & " and " & objfw.strr & "<='" & strfilter1 & "'"
view.RowFilter = objfw.TextBox2.Text
lb()
End If
Else
view = datacp1.Tables("ss").DefaultView
view.RowFilter = "产品编号 <> '0'"
DataGridView1.DataSource = view
Button1.Text = "范围"
End If
End Sub