Good evening to all I will try to be as clear as possible. I have a database in Access that I want to display it in a Datagridview which consists of a key, date, time, and 2 more Comboboxes filled again from other tables in the same Access In the date and time fields I've put a mask to be easier to place them. If I change a value in Combobox I have in Datagridview if not the first time the second definitely stop showing the masks in the areas of time and date. The comments are welcomed Table1 ID Col1 Date Time Col4 1 1 08/04/2013 1 2 2 09/04/2013 2 3 3 10/04/2013 3 4 4 11/04/2013 4 5 5 12/04/2013 5 6 6 13/04/2013 6 7 7 14/04/2013 7 Table2 tbl2_ID tbl2_Desc 1 Desc1 2 Desc2 3 Desc3 4 Desc4 5 Desc5 6 Desc6 7 Desc7 Table3 tbl3_ID tbl3_Desc 1 Desc A 2 Desc B 3 Desc C 4 Desc D 5 Desc E 6 Desc F 7 Desc G And the code i use is this Imports System. Ole Db Public Class Form1 Dim con As Ole Db Connection = New Ole Db Connection("Provider=Microsoft. OLEDB.4.0; Persist Security Info=False; Data Source = C:\Test.mdb") Dim cmd As Ole Db Command Dim ds As New Data Set Dim da As Ole Db Data Adapter Dim cmb1 As New Data Grid View Combo Box Column() Dim cmb2 As New Data Grid View Combo Box Column() Private Sub Bkpdwn_D_List_Load(By Val sender As Object, By Val e As System. Load Call fill_cbos() Call fill_data Grid() masked Text Box1 = New Masked Text Box With masked Text Box1 . Visible = False End With masked Text Box2 = New Masked Text Box With masked Text Box2 .

Nota: Para este exemplo voc deve criar um Table Adapter para a tabela Customers.

De forma geral usamos o recurso Tool Tips para exibir valores em clulas do Data Grid View que so muito pequenas para exibir todo o contedo.

Para atribuir a clula atual via cdigo podemos atribuir um valor a propriedade Current Cell do Data Grid View .

No cdigo abaixo estou atribuindo a clula atual como sendo a primeira linha e a segunda coluna ( row=0 e column=1)A seguir temos um exemplo que quando ocorrer um valor para o campo Customer ID duplicado em uma nova linha ou linha sendo editada o evento Data Error ir ocorrer e ser tratado pela exibio de uma mensagem que descreve o erro.

Text) End Try End Sub Private Sub fill_cbos() Dim cmd As Ole Db Command Dim ds As New Data Set Dim da As Ole Db Data Adapter cmd = New Ole Db Command("select * from Table2", con) If con.

Value Member = "tbl2_ID" End With cmd = New Ole Db Command("select * from Table3", con) If con. Visible = False Else Msg Box("Wrong Date") masked Text Box1. Visible = False Else Msg Box("Wrong Time") masked Text Box2. Data Grid View Cell Cancel Event Args) Handles Data Grid View1. Column Index = 2) Then Dim rect1 As Rectangle = Me. Column Index = 3) Then Dim rect2 As Rectangle = Me. Close() da = New Ole Db Data Adapter(cmd) ds = New Data Set() da.