ผมต้องการกรองข้อมูล ใน report wizard แล้วที่ นี้ การกรองข้อมูล มันต้องใช้ 2 เงื่อนไข ซึ่งให้เงื่อนไขเป็นจริงทั้งหมด ผมจะเชื่อมคำสั่งยังไงดีครับ
ต้อนนี้ผม สร้างตัวแปลไว้ในคลาส 2 สองตัวแปลไม่รู้ จะเชื่อนกันยังไง ให้คำสั่งเป็นจริงทั้งสอง
Public Class Class1
Public Shared Sub serach(ByVal sell As String,)
Form1.centerTableAdapter.FillBysell(Form1.DataSet1.center, sell)
End Sub
Public Shared Sub serach1(ByVal sup As String)
Form1.centerTableAdapter.FillBysup(Form1.DataSet1.center, sup)
End Sub
End Class
ส่วน นี้ เป็นโค๊ด ใน ฟอร์มน่ะครับ













Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.centerTableAdapter.Fill(Me.DataSet1.center)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Class1.serach(TextBox1.Text)
Class1.serach1(TextBox2.Text)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
รบกวนช่วยกันหน่อยน่ะครับ ด่วนจริงๆ
ด่วนมากๆๆๆ ช่วยหน่อยน่ะครับ เชื่อมคำสั่งให้เป็นจริง
ต้อนนี้ผม สร้างตัวแปลไว้ในคลาส 2 สองตัวแปลไม่รู้ จะเชื่อนกันยังไง ให้คำสั่งเป็นจริงทั้งสอง
Public Class Class1
Public Shared Sub serach(ByVal sell As String,)
Form1.centerTableAdapter.FillBysell(Form1.DataSet1.center, sell)
End Sub
Public Shared Sub serach1(ByVal sup As String)
Form1.centerTableAdapter.FillBysup(Form1.DataSet1.center, sup)
End Sub
End Class
ส่วน นี้ เป็นโค๊ด ใน ฟอร์มน่ะครับ
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.centerTableAdapter.Fill(Me.DataSet1.center)
Me.ReportViewer1.RefreshReport()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Class1.serach(TextBox1.Text)
Class1.serach1(TextBox2.Text)
Me.ReportViewer1.RefreshReport()
End Sub
End Class
รบกวนช่วยกันหน่อยน่ะครับ ด่วนจริงๆ