 |
| |
ท่านเซียนช่วยผมด้วยครับ เรื่อง Combobox ครับ ช่วยผมด้วยครับ |
| |
 |
|
|
 |
 |
|
รูปครับ
|
 |
 |
 |
 |
| Date :
2010-08-17 13:43:27 |
By :
exclusiveM |
|
 |
 |
 |
 |
|
|
 |
 |
|
 |
 |
| |
|
|
|
| |
|
ความต้องการของท่าน ExclusiveM แต่ละอย่างยากที่จะเข้าใจยิ่งนัก
Dim _DataRow As DataRow
_DataRow = DT.NewRow
_DataRow("DM_NAME") = ""
DT.Rows.Add(_DataRow)
เพิ่มอันนี้ลงไปหลัง ใส่ค่าให้ DT ครับ ไม่แน่ใจว่าได้เปล่าลองดูครับ
|
ประวัติการแก้ไข
2010-08-17 15:53:38
| |
|
|
| |
| Date :
2010-08-17 15:08:30 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ก้อรอเซียนต่อไปละกันนะคะ อย่าลืมจุดธูปของเซ่นไหว้ด้วยค่ะ
|
| |
|
|
| |
| Date :
2010-08-17 15:11:57 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ขอบคุณท่านเซียน KaimuK ได้บรรทัดว่างมาเหมือนกันครับ แต่มันเป็นบรรทัดต่อท่าย ม่ะทราบว่า ท่านเซ๊ยนคนไหนพอรู้ ให้มันว่างที่บรรทัดแรกแบบในรูป ได้บ้างครับ ขอบคุณครับ
|
| |
|
|
| |
| Date :
2010-08-17 16:27:24 |
By :
exclusiveM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
จุดธูปประเดี๋ยวซักพักเค้าก็มาครับ รอหน่อย
|
| |
|
|
| |
| Date :
2010-08-17 19:02:00 |
By :
3rds |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ระดับนี้ไม่ต้องถึงมือเซียนหรอกครับ เดี๋ยวเรียกหลานอนุบาล 2 มาทำให้ก็ได้
Code (VB.NET)
If _conn.State = ConnectionState.Open Then
_conn.Close()
End If
Dim Sb As New System.Text.StringBuilder()
Sb.AppendLine("SELECT [DM_DEPARTMENT], [DM_DESCRIPTION] ,([DM_DEPARTMENT]+' '+[DM_DESCRIPTION]) As [DM_NAME]")
Sb.AppendLine("FROM [VGL_DEPARTMENT_MASTER]")
Sb.AppendLine("WHERE [DM_DEL_FLAG]<>@dm_del_flag AND")
Sb.AppendLine("[DM_COMPANY]=@dm_company AND")
Sb.AppendLine("[DM_BRANCH]=@dm_branch AND")
Sb.AppendLine("([DM_DEPARTMENT] IS NOT NULL OR [DM_DESCRIPTION] IS NOT NULL)")
SQLCMD = Sb.ToString()
Dim _Comm As New SqlCommand(SQLCMD, _conn)
_Comm.Parameters.AddWithValue("@dm_del_flag", "Y")
_Comm.Parameters.AddWithValue("@dm_company", LogonCompCode)
_Comm.Parameters.AddWithValue("@dm_branch", LogonBranchCode)
DT.Rows.Clear()
Dim DataAdapter As New SqlDataAdapter(_Comm)
DataAdapter.Fill(DT)
If Not FlagConnect Then
Exit Sub
End If
cboAcc1.DataSource = DT
cboAcc1.DisplayMember = "DM_NAME"
cboAcc1.ValueMember = "DM_DEPARTMENT"
cboAcc1.SelectedIndex = -1
|
ประวัติการแก้ไข
2010-08-17 19:20:39
| |
|
|
| |
| Date :
2010-08-17 19:18:54 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
สั่ง Combo Sort ก็น่าจะได้แล้วนะครับ
|
| |
|
|
| |
| Date :
2010-08-17 22:08:44 |
By :
kaimuk |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลูกพี่ Tungman ครับ ผมเอาของพี่ไปใช้ มันใช้ไม่ได้อ่ะ
|
| |
|
|
| |
| Date :
2010-08-18 13:12:40 |
By :
exclusiveM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
error ว่าไง
พักนี้โค้ดสดตลอด ไม่ได้ตรวจหรอกว่า work หรือเปล่า
|
| |
|
|
| |
| Date :
2010-08-18 13:24:17 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
Code (VB.NET)
Dim cmdBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
cmdBuilder.AppendLine("SELECT '' AS [Value_Field] ,'' AS [Text_Field]") 'แถวว่างอยู่ตรงนี้
cmdBuilder.AppendLine("UNION")
cmdBuilder.AppendLine("SELECT [DM_DEPARTMENT] AS [Value_Field]")
cmdBuilder.AppendLine(" ,([DM_DEPARTMENT]+' '+[DM_DESCRIPTION]) AS [Text_Field] ")
cmdBuilder.AppendLine("FROM [VGL_DEPARTMENT_MASTER]")
cmdBuilder.AppendLine("WHERE ([DM_DEL_FLAG] <> 'Y')")
cmdBuilder.AppendLine(" AND [DM_COMPANY]='" & LogonCompCode & "'")
cmdBuilder.AppendLine(" AND [DM_BRANCH]='" & LogonBranchCode & "'")
cmdBuilder.AppendLine("ORDER BY [DM_DEPARTMENT] ,[DM_DESCRIPTION]")
DT = Nothing
DT = GetDataTable(cmdBuilder.ToString())
If Not FlagConnect Then
Exit Sub
End If
With cboAcc1
.BeginUpdate()
.DisplayMember = "Text_Field"
.ValueMember = "Value_Field"
.DataSource = DT
.EndUpdate()
End With
cboAcc1.SelectedIndex = -1
_conn.Close()
ดองได้ที่แระ ไม่ตอบให้แรกๆเพราะอยากถามเซียนนี่แหละ ไม่ใช่เซียนรัยนี่คะแค่สาวเอ๋อๆ โต๋ๆเต๋ๆไปวันๆ
ที่หลังใส่ tag ด้วยนะคะ code จะได้ดูง่าย พี่ๆหลายคนอายุมากแล้วอะค่ะ แล้วทีหลังถามให้ดีๆ คนทำดาบางคนที่ไม่ใช่เซียน
เค้าก้อพอจะตอบได้
|
ประวัติการแก้ไข
2010-08-18 13:45:02
| |
|
|
| |
| Date :
2010-08-18 13:34:03 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
อ้าวเหรอ นึกว่าให้เอาที่ว่างๆ ออก 
|
| |
|
|
| |
| Date :
2010-08-18 13:36:55 |
By :
tungman |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ติดโรคเอ๋อไปอะดิพี่ตึ๋ง หายยากนะคะ
|
| |
|
|
| |
| Date :
2010-08-18 13:43:44 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ถามตอบกันตรงนี้แหละค่ะ คนอื่นจะได้ประโยชน์ไปด้วยเลย มัน bug อะไรอะ มีรังแมลงใน code ด้วยหรอคะ
ถ้า code เดิมมันใช้งานได้ ก็อน่าจะได้แล้วนี่นา
สงสัยอย่าง นี่ code select ข้อมูลแล้วมี beginupdate endupdate มาได้ไงเนอะคะ
|
| |
|
|
| |
| Date :
2010-08-18 14:23:44 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
beginupdate endupdate ประโยชมันคือไรหรอคับ เอาออกไป มันจะเกิดไรขึ้นหรอครับ พี่
|
| |
|
|
| |
| Date :
2010-08-18 14:25:41 |
By :
exclusiveM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ตามที่พี่ให้โค้ดมามันม่ะน่าจะผิดนะ แต่ผมสงสัยว่า Code (VB.NET)
cmdBuilder.AppendLine("SELECT '' AS [Value_Field] ,'' AS [Text_Field]")
ส่วนนี้อ่ะครับ มันกำหนดมันขึ้นมา เหมือนว่า มันจะUNION เข้ากัน ไม่ได้
|
| |
|
|
| |
| Date :
2010-08-18 14:29:18 |
By :
exclusiveM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พี่สาวคนสวย คิดว่ามันจะ UNION กับส่วนที่เป็นข้อมูลในตารางได้เป่าครับ
|
| |
|
|
| |
| Date :
2010-08-18 14:30:59 |
By :
exclusiveM |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
ลองทำดูรึยังคะ ^^
|
| |
|
|
| |
| Date :
2010-08-18 14:35:54 |
By :
blurEyes |
|
|
| |
|
|
|
|
|
| |
|
|
|
| |
|
|
|
| |
|
พี่สาวจ๋า ผมได้ล่ะ มันต้อง
Code (VB.NET)
SELECT ''AS Value_Field ,'' AS Text_Field
UNION
SELECT DM_DEPARTMENT AS Value_Field,(DM_DEPARTMENT+' '+DM_DESCRIPTION) AS Text_Field
FROM VGL_DEPARTMENT_MASTER
WHERE DM_DEL_FLAG <> 'Y'
AND DM_COMPANY='001'
AND DM_BRANCH='001'
ORDER BY Value_Field ,Text_Field
ขอบคุณพี่สาวมากๆจะจ๊าา
|
| |
|
|
| |
| Date :
2010-08-18 14:39:19 |
By :
exclusiveM |
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
