1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
|
DB.getSqlDataSet(RequeteAll, DataSetAll, TableName)
Dim Primary_Key_Columns(0) As DataColumn
Primary_Key_Columns(0) = DataSetAll.Tables(TableName).Columns("PKPlanning")
DataSetAll.Tables(TableName).PrimaryKey = Primary_Key_Columns
ObjDataRow = DataSetAll.Tables(TableName).NewRow
'PrimaryKey = DB.GetNewPrimaryKey(DataSetAll, "PKPlanning", TableName)
'ObjDataRow("PKPlanning") = 50
ObjDataRow("PKUser") = Item.PKUser
ObjDataRow("PKMonth") = Item.PKMonth
ObjDataRow("PlanningDay") = Item.PlanningDay
ObjDataRow("PKHoraire") = Item.PKHoraire
DataSetAll.Tables(TableName).Rows.Add(ObjDataRow) |
Partager