กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
262 2
URL.หัวข้อ /
URL
จะเรียงลำดับต้องเพิ่มตรงไหนครับ
ผมจะเพิ่มการเรียงลำดับ Cart No จากน้อยไปมากทำได้ไหมครับและต้องเพิ่มตรงไหน ขอบคุณครับ
Private Sub Command18_Click()
Dim strWhere As Date
Dim strSQL As String
If IsNull(Text14) Then
MsgBox "ยังไม่ได้ระบุ Cart ! ",vbInformation+vbOkOnly,"Error"
Else
strWhere = Text14
strSQL = "select VacDate.Date,VacDate.[Cart No],VacDate.Average,VacDate.Comment,VacDate.Film From VacDate where Date=" & CDbl(strWhere)
Me.List16.RowSource = strSQL
Me.Form.Refresh
End If
End Sub
Private Sub Command18_Click()
Dim strWhere As Date
Dim strSQL As String
If IsNull(Text14) Then
MsgBox "ยังไม่ได้ระบุ Cart ! ",vbInformation+vbOkOnly,"Error"
Else
strWhere = Text14
strSQL = "select VacDate.Date,VacDate.[Cart No],VacDate.Average,VacDate.Comment,VacDate.Film From VacDate where Date=" & CDbl(strWhere)
Me.List16.RowSource = strSQL
Me.Form.Refresh
End If
End Sub
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R05195
เพิ่ม ORDER BY [Cart No] เข้าไปใน sql statements ครับ
2 @R05209
ขอบคุณครับเมื่อวานผมลองแล้วไม่ได้สักที คุณ P! แนะนำผมเลยมาลองใหม่ แล้วก็ได้ตามที่คุณ P! บอกจริงๆ
strSQL = "select VacDate.Date,VacDate.[Cart No],VacDate.Average From VacDate where Date=" & CDbl(strWhere) & " ORDER BY [Cart No]"
strSQL = "select VacDate.Date,VacDate.[Cart No],VacDate.Average From VacDate where Date=" & CDbl(strWhere) & " ORDER BY [Cart No]"
Time: 0.0559s
