| Вопрос: Новое сообщение без темы | Добавлено: 11.04.03 19:04 |
Автор вопроса:  Serge1167
|
|
Попробуй такой вариант. Для Access можно использовать функцию: ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Function FormatText(ByVal s As String) As String Dim Rt As String Dim i As Integer i = Len(s) Do While i > 0 Rt = Rt & Microsoft.VisualBasic.Left(s, 2) & IIf(i > 2, ".", "") If i > 1 Then s = Microsoft.VisualBasic.Right(s, i - 2) i = Len(s) Else i = 0 s = "" End If Loop Return Rt End Function ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Можно использовать ее уже после того как забил данные в датасет если используешь OleDbDataAdapter: For i = 0 To dsMY.SelOrderDetail.Rows.Count - 1 dataset.SelectedTablo(i).FildName = FormatText(dataset.SelectedTablo(i).FildName) Next или если использовать OleDbDataReader можно добавлять уже отформатированную строку в датасет: '''''''''''''''''''''''''''''''''''' While DataRead.Read .......... .......... NewRow.Item("FildName") =FormatText( DataRead.Item("FildName")) DsOrderDetails1.SelOrderDetail.Rows.Add(NewRow) End While ''''''''''''''''''''''''''''''''''''''''''''
Но конечно это будет работать намного медленнее, чем если писать встроенную функцию в SQL Server :( |
| Ответы | Всего ответов: 0 |
Страница: