gust2012
26-09-2010, 22:46
Như đề tài đã nêu trên, nhưng không đơn giản thế, Có một yêu cầu như sau Khi mà khách đang dùng bàn thì những bàn đó sẽ không hiển thị lên Combox để tránh trường hợp là khách này chưa trả bàn mà lại cho khách khác mướn tiếp bàn đó. Khi khách trả bàn thì Mã Số bàn này mới được hiển thị lên ComboxBox nhưng khi em viết code thì nó không được bác này biết giúp en được không
đây là code:
Dim dt_BanAn As New DataTable
Dim dt_BanDat As New DataTable
Dim dt_Temp As New DataTable("Tbl_Temp")
Dim colItem As DataColumn = New DataColumn("MaSoBan", Type.GetType("System.String"))
dt_Temp.Columns.Add(colItem)
dt_BanAn = bBanAn.LayBanAn()
dt_BanDat = bHoaDon.LayDSBan_ChuaThanhToan()
For i As Integer = 0 To dt_BanAn.Rows.Count - 1
Dim kt As Boolean = False
For j As Integer = 0 To dt_BanDat.Rows.Count - 1
If dt_BanAn.Rows(i)("MaSoBan") = dt_BanDat.Rows(j)("MaSoBan") Then
kt = True
End If
Next
If kt = False Then
Dim drows As DataRow '= Nothing
drows = dt_Temp.NewRow()
drows("MaSoBan") = dt_BanAn.Rows(i)("MaSoBan")
dt_Temp.Rows.Add(drows)
End If
Next
CboBan.DataSource= dt_temp
đây là code:
Dim dt_BanAn As New DataTable
Dim dt_BanDat As New DataTable
Dim dt_Temp As New DataTable("Tbl_Temp")
Dim colItem As DataColumn = New DataColumn("MaSoBan", Type.GetType("System.String"))
dt_Temp.Columns.Add(colItem)
dt_BanAn = bBanAn.LayBanAn()
dt_BanDat = bHoaDon.LayDSBan_ChuaThanhToan()
For i As Integer = 0 To dt_BanAn.Rows.Count - 1
Dim kt As Boolean = False
For j As Integer = 0 To dt_BanDat.Rows.Count - 1
If dt_BanAn.Rows(i)("MaSoBan") = dt_BanDat.Rows(j)("MaSoBan") Then
kt = True
End If
Next
If kt = False Then
Dim drows As DataRow '= Nothing
drows = dt_Temp.NewRow()
drows("MaSoBan") = dt_BanAn.Rows(i)("MaSoBan")
dt_Temp.Rows.Add(drows)
End If
Next
CboBan.DataSource= dt_temp