sb.Remove(0, sb.Length)
sb.Append("SELECT LAWSUIT.LawsuitID,CASES.Case_Name,LAWSUIT.PID")
sb.Append(" FROM LAWSUIT,CASES ")
sb.Append(" WHERE (LAWSUIT.CaseID=CASES.CaseID) ")
sb.Append(" AND (LAWSUIT.PID=@PID) ")
Dim sql As String = sb.ToString()
com = New SqlCommand()
With com
.CommandType = CommandType.Text
.CommandText = sql
.Connection = Conn
.Parameters.Add("@PID", SqlDbType.NVarChar).Value = CStr(FormAdd.txtPid.Text)
dr = .ExecuteReader()
If dr.HasRows Then
'dt = New DataTable()
'dt.Load(dr)
ComboFeature.DataSource = dr
ComboFeature.ValueMember = // ตรงนี้ต้องการให้ค่าเป็น LAWSUIT.LawsuitID
ComboFeature.DisplayMember = // ตรงนี้ต้องการให้ค่าเป็น CASES.Case_Name
Else
ComboFeature.DataSource = Nothing
End If
End With
dr.Close()
ตรงที่ คอมเม้นต้องใส่ยังไงคะ เพื่อที่ คอมโบบ็อกจะแสดงค่าออกมา ช่วยทีค่ะ