Câu lạc bộ Visual Basic

Cho em hỏi là thủ tục CellValueChanged của GridControl như sau sai chổ nào mà nó gây lỗi (Em muốn khi người dùng thay đổi trên bất kỳ cell nào thì cột Remarks sẽ có giá trị là x. GridView4.SetRowCellValue(GridView4.FocusedRowHandle, "Remarks", "x") Mong anh chị giúp đỡ Xin cảm ơn.

Chào các anh chị,
Xin vui lòng hướng dẫn em đoạn code chọn Tab theo ý của SuperTabControl giúp.

Em mò mẵm mãi chỉ tìm được chọn tới và lùi thôi.
Xin chân thành cảm ơn.

Xin các anh chị hướng dẫn giúp code để copy clipboard DataGridView sang Excel.
Hoặc phương thức copyfromrecordset ở VB.Net có được sử dụng? Xin hướng dẫn giúp.

Xin chân thành cảm ơn.

[vbnet] da = New OleDbDataAdapter("Select tendangnhap as [Tên Đăng Nhập], matkhau as [Mật Khẩu] from DANGNHAP", con) dt.Clear() da.Fill(dt) IF dt.Rows.Count>0 THEN Dim myreport As New rpt_baocao myreport.SetDataSource(dt) Dim f As New frm_report f.CrystalReportViewer1.ReportSource = myrep...

Khi mình thêm cái ribbon vào form và khi chạy nó hiện lỗi sau: Could not load file or assembly 'DevComponents.DotNetBar2, Version=7.7.0.2, Culture=neutral, PublicKeyToken=null' or one of its dependencies. The system cannot find the file specified Rất mong các anh chị hướng dẫn cách khắc phục lỗi trê...

Xin cảm ơn bạn. Cho mình hỏi phần khai báo biến bên dưới mình thay thế như thế nào cho hợp lý.

Dim myreport As New rpt_baocao

Dim f As New frm_report

Xin chân thành cảm ơn.
Xin lỗi vì mình mới mò mẵm cái này được 3 ngày nên có phần hỏi hơi ngu ngơ, bạn thông cảm nhé.

Anh chị cho em hỏi code để gán datasource vào report Ví dụ code fill data vào datagrid như sau: da = New OleDbDataAdapter("Select tendangnhap as [Tên Đăng Nhập], matkhau as [Mật Khẩu] from DANGNHAP", con) dt.Clear() da.Fill(dt) DataGridView1.DataSource = dt Nhưng gán vào report như thế nào...

Mong các anh chị hướng dẫn em cách set Auto Hide ToolBar trong MDIform VB6.0 giống như thanh TaskBar.

Em xin cám ơn trước.

Còn VB6.0 thì sao hả bạn?

Bị lỗi Compile error "Method or data member not found" bạn ơi

Xin các anh chị hướng dẫn em cách lấy giá trị của cell hiện hành từ DataGrid

Em xin cám ơn trước.

Rất hay, bạn có thể phát triển thêm là nhận mail và quản lý mail không ? Nói chung là tương tự Outlook.

Các anh chị ơi, có cách nào khác không dùng vòng lặp không ?
Em xin cám ơn.

hiroki wrote:Mình nghĩ hàm Round ko chạy đc trong câu truy vấn chứ bỏ ra ngoài chạy vô tư.

Còn nhiều hàm khác không thể sử dụng trong chuổi SQL nữa bạn à.

Tạm thời bạn code lại như thế này. [vb] Private Sub cmdRound_Click() On Error GoTo ErrHandle Dim li As Integer, lRow As Integer Dim lsSQL As String Dim lrs As New ADODB.Recordset lsSQL = "SELECT tblTotalAmount.SUPPLIER, tblTotalAmount.SL, tblTotalAmount.DG, [SL]*[DG] AS Amount " & _ &...

Hàm Fix thì nó sẽ không hiển thị số thập phân bạn à.

Vậy áp dụng cho bài toán trên thì như thế nào vậy bạn ? Vẫn báo lỗi. lsSQL = "SELECT tblTotalAmount.SUPPLIER, tblTotalAmount.SL, tblTotalAmount.DG, RoundSig([SL]*[DG],3) AS Amount " & _ "FROM tblTotalAmount;" Mình đã copy hàm RoundSig vào module.

Vậy có cách nào khắc phục không bạn, Hoặc hàm thay thế hàm Round (Không dùng Format). Nếu dùng format thì không phải tiền = usd thì cắt bỏ số thập phân, nếu dùng replace thì cũng không thực hiện được giống như hàm round. lsSQL = "SELECT tblTotalAmount.SUPPLIER, tblTotalAmount.SL, tblTotalAmount...

Bạn xem file đính kèm mình up lên nhé

Round.rar

Nếu không có hàm Round thì chạy OK, em đưa round vào là không chạy được. Không hiểu nổi, cái này bên Access Query thì chạy bình thường, nhưng ở bên VB 6.0 thì gặp lỗi.