 |
|
ทำโปรเจคจบอยู่ค่ะ เกี่ยวกับวิเคราะห์ข้อสอบ คือต้อง select โจทย์มาแสดงบน datagrid
และ select ตัวเลือกมาแสดงต่อกัน ปัญหาคือ ต้องการให้ checkbox ขึ้นที่คอมลัมน์แรกของ
แถวที่มีโจทย์เท่านั้นค่ะ ต้องเขียนโค้ดยังงัย ตอนนี้ checkbox มันขึ้นทุกแถวเลย ช่วยทีค่ะ
รีบมาก มันเป็นส่วนที่ต้องทำเพิ่มเติม ขอบคุณล่วงหน้าค่ะ
โค้ด
sql1 = "SELECT q.Question_Id,q.Question_Data,a.Question_Difficulty,a.Question_Discriminasion FROM Question_1250400130421_2582010_3946 as q , Question_Analys1250400130421_2582010_3946 as a"
sql1 &= " WHERE q.Question_Id = a.Question_Id"
da1 = New SqlDataAdapter(sql1, conn)
da1.Fill(ds1, "Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946")
If ds1.Tables("Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946").Rows.Count <> 0 Then
chkColumn.HeaderText = "เลือก"
chkColumn.Width = 60
chkColumn.DisplayIndex = 0
chkColumn.Name = "chkQuest"
DataGridView1.Columns.Add(chkColumn)
For i = 0 To ds1.Tables("Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946").Rows.Count - 1
qId = ds1.Tables("Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946").Rows(i).Item("Question_Id")
quest = ds1.Tables("Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946").Rows(i).Item("Question_Data")
qDiff = ds1.Tables("Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946").Rows(i).Item("Question_Difficulty")
qDisc = ds1.Tables("Question_1250400130421_2582010_3946 , Question_Analys1250400130421_2582010_3946").Rows(i).Item("Question_Discriminasion")
DataGridView1.Rows.Add()
DataGridView1.Rows.Insert(qRow, New String() {i + 1, quest, qDiff, qDisc})
qRow += 1
sql2 = "SELECT c.Choice_Data,a.Choice_Difficulty,a.Choice_Discriminasion FROM Choice_1250400130421_2582010_3946 as c,Choice_Analys1250400130421_2582010_3946 as a"
sql2 &= " WHERE c.Choice_Id = a.Choice_Id AND c.Question_Id = '" & qId & "'"
ds2.Clear()
da2 = New SqlDataAdapter(sql2, conn)
da2.Fill(ds2, "Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946")
count = ds2.Tables("Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946").Rows.Count
If ds2.Tables("Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946").Rows.Count <> 0 Then
For j = 0 To ds2.Tables("Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946").Rows.Count - 1
choice = ds2.Tables("Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946").Rows(j).Item("Choice_Data")
cDiff = ds2.Tables("Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946").Rows(j).Item("Choice_Difficulty")
cDisc = ds2.Tables("Choice_1250400130421_2582010_3946 , Choice_Analys1250400130421_2582010_3946").Rows(j).Item("Choice_Discriminasion")
DataGridView1.Rows.Add()
DataGridView1.Rows.Insert(qRow, New String() {" ", choice, cDiff, cDisc})
qRow += 1
Next
End If
Next
End If
Tag : .NET, VB.NET
|
|
|
 |
 |
 |
 |
| Date :
2010-08-25 11:12:39 |
By :
นุ้ย |
View :
1247 |
Reply :
0 |
|
 |
 |
 |
 |
|
|
|
|
 |
