Giao diện MSFleGrid là gì vậy bạn, tôi chưa nghe bao giờ?
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
Me.MSFlexGrid1.Text = Me.MSFlexGrid1.Text + Chr$(KeyAscii)
Else
If Len(Me.MSFlexGrid1.Text) > 0 Then
Me.MSFlexGrid1.Text = Mid(Me.MSFlexGrid1.Text, 1, Len(Me.MSFlexGrid1.Text) - 1)
End If
End If
End Sub
Private Sub MSFlexGrid1_KeyUp(KeyCode As Integer, ByVal Shift As Integer)
If KeyCode = 46 Then Me.MSFlexGrid1.Text = ""
End Sub
ý mình là có doan code nhỏ nào để tránh được việc lỗi font không,mình chuyển sang file dbf để Famis đọc được.những thông tin trên Excel là thông tin về Bản đồ địa chính,mà lại không có dấu thì không được bạn à.Hầu như tất cả các phần mềm Kế toán do các lập trình viên chuyên nghiệp lập hiện nay đều dùng kể cả trên VB hay VS Foxpro. Nếu có điều kiện nên học, nó hay lắm đấy.
Ý mình "cực chẳng đã" là phải viết *. prg để chuyển font thôi. Cần thiết thì chữa cháy bằng cách dùng Unikey chuyển chuyển file Excel sang không dấu trước khi Convert dùng tạm.