khomar
یک شنبه 28 تیر 1388, 02:11 صبح
سلام
برنامه زیر من برای سرچ نوشتم
همان طور که می بینید شاید 10 تا if در اینجا استفاده شده که بخش کوچیکی از if هایی هست که من باید بنویسم
که کلا شاید حدود 60 تا if می شه
می خواستم بپرسم ایا می شه این کد بهینه کرد ؟
یعنی از قسمت dt و datagrid1 فاکتور گرفت که به ازای هر if تکرار نشن؟
Dim ds As New DataSet
Dim strsql As String
Dim dt As New DataTable
Dim db As New Class1
If RadioButton1.Checked = True Then
If TextBox1.Text <> "" Then
strsql = "select * from student where nstudent=" + TextBox1.Text + ""
dt = db.myselect(strsql)
' MessageBox.Show(dt.Rows.Count.ToString + " یافت شد.")
DataGrid1.DataSource = dt
' DataGrid1.DataBindings.Add(New Binding("datasource", ds, "student"))
End If
If TextBox2.Text <> "" Then
strsql = "select * from student where name='" + TextBox2.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If TextBox3.Text <> "" Then
strsql = " select * from student where family='" + TextBox3.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If ComboBox1.Text <> "" Then
strsql = "select * from student where major ='" + ComboBox1.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If TextBox4.Text <> "" Then
strsql = "select * from student where date_ozviat='" + TextBox4.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If CheckBox1.Checked = True Then
strsql = "select * from student where state=" + CheckBox1.Checked + ""
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If CheckBox2.Checked = True Then
strsql = "select * from student where state=" + CheckBox2.Checked + ""
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
برنامه زیر من برای سرچ نوشتم
همان طور که می بینید شاید 10 تا if در اینجا استفاده شده که بخش کوچیکی از if هایی هست که من باید بنویسم
که کلا شاید حدود 60 تا if می شه
می خواستم بپرسم ایا می شه این کد بهینه کرد ؟
یعنی از قسمت dt و datagrid1 فاکتور گرفت که به ازای هر if تکرار نشن؟
Dim ds As New DataSet
Dim strsql As String
Dim dt As New DataTable
Dim db As New Class1
If RadioButton1.Checked = True Then
If TextBox1.Text <> "" Then
strsql = "select * from student where nstudent=" + TextBox1.Text + ""
dt = db.myselect(strsql)
' MessageBox.Show(dt.Rows.Count.ToString + " یافت شد.")
DataGrid1.DataSource = dt
' DataGrid1.DataBindings.Add(New Binding("datasource", ds, "student"))
End If
If TextBox2.Text <> "" Then
strsql = "select * from student where name='" + TextBox2.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If TextBox3.Text <> "" Then
strsql = " select * from student where family='" + TextBox3.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If ComboBox1.Text <> "" Then
strsql = "select * from student where major ='" + ComboBox1.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If TextBox4.Text <> "" Then
strsql = "select * from student where date_ozviat='" + TextBox4.Text + "'"
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If CheckBox1.Checked = True Then
strsql = "select * from student where state=" + CheckBox1.Checked + ""
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If
If CheckBox2.Checked = True Then
strsql = "select * from student where state=" + CheckBox2.Checked + ""
dt = db.myselect(strsql)
DataGrid1.DataSource = dt
End If