• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Tạo số thứ tự trong datareport ....hoài ko ra...

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Điều hành viên: tungblt

smile251284
Thành viên chính thức
Thành viên chính thức
Bài viết: 20
Ngày tham gia: T.Hai 11/08/2008 10:50 am

Tạo số thứ tự trong datareport ....hoài ko ra...

Gửi bàigửi bởi smile251284 » T.Năm 09/10/2008 9:46 am

Mình đã tham khảo nhiều cách tạo số thứ tự trong dataReport của VB và cách được dùng nhiều nhất là cách dưới đây, nhưng mình làm theo thì chỉ xuất được có mỗi một số là số 1 từ đầu đến cuối bản ghi. mình ko bít phải làm thế nào mới ra đúng nữa. Mọi người chỉ giúp mình với.

// soạn code toàn bộ trong report. Tạo rpttextbox với (name) là txtSTT
Dim WithEvents discountformat As StdDataFormat

Private Sub discountformat_Format(ByVal DataValue As StdFormat.StdDataValue)
Dim I As Long
I = I + 1
DataValue = I
End Sub

Private Sub DataReport_Initialize()
Set discountformat = New StdDataFormat
Set Sections("Section1").Controls("txtSTT").DataFormat = discountformat
End Sub



ngoque
Bài viết: 1
Ngày tham gia: T.Tư 21/09/2016 8:34 pm

Re: Tạo số thứ tự trong datareport ....hoài ko ra...

Gửi bàigửi bởi ngoque » T.Tư 21/09/2016 8:38 pm

Dim WithEvents discountformat As StdDataFormat
Dim I As Long ' chuyen DIm này lên chỗ này
Private Sub discountformat_Format(ByVal DataValue As StdFormat.StdDataValue)
.....


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.6 khách