set nocount on
declare @declare varchar(max)= ''
declare @set varchar(max) = ''
declare @setID varchar(max)= ''
declare @save varchar(max)= ''
declare @saveid varchar(max)= ''
declare @table varchar(100) = 'CostCenterDesc'
declare @isidentity bit
print ' Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click'
print ' Try'
DECLARE @out varchar(100)
declare @column_name varchar(100)
declare @column_type_vb varchar(10)
declare @column_name_vb varchar(100)
DECLARE curName CURSOR LOCAL FAST_FORWARD FOR
select column_name, ColumnTypeVB,ColumnNameVB, md.IsIdentity
from ddv_DALTableColumnMetaData md
where TABLE_NAME =
@table
OPEN curName
WHILE 1=1
BEGIN
FETCH NEXT FROM curName INTO @column_name, @column_type_vb, @column_name_vb, @isidentity
if @@fetch_status <> 0 begin
break
end
set @declare = @declare + ' Dim ' + @column_name_vb + ' As ' + @column_type_vb + char(10)
if @column_type_vb = 'int32' begin
set @set = @set + ' ' + @column_name_vb + ' = FPCommon.Common.ToDecimal(oRow("' + @column_name + '"))'+ char(10)
end else begin
set @set += ' ' + @column_name_vb + ' = oRow("' + @column_name + '")'+ char(10)
end
set @save += ' ' + 'o' + @table + '.' + @column_name + ' = ' + @column_name_vb + char(10)
if @isidentity = 1 begin
set @saveid += ' ' + 'o' + @table + '.' + @column_name + ' = ' + @column_name_vb + char(10)
set @setid = ' ' + @column_name_vb + ' = oRow("' + @column_name + '", DataRowVersion.Original)'
end
END
CLOSE curName
DEALLOCATE curName
print @declare
print ' For Each oRow As DataRow In Me.RadGridView1.DataSource.rows '
print ' Select Case oRow.RowState '
print ' Case DataRowState.Added, DataRowState.Modified '
print @set
print ' Dim o' + @table + ' As New DAL.' + @table + '(intRowID, "datawh") '
print @save
print ' o' + @table + '.Save("datawh") '
print ' Case DataRowState.Deleted '
print ' Dim o' + @table + ' As New DAL.' + @table + '(intRowID, "datawh") '
print @setid
print @saveid
print ' DAL.SPs.dd_' + @table + '_DEL_byID(intRowID, "datawh").execute() '
print ' End Select '
print ' Next '
print ' Me.RadGridView1.DataSource.AcceptChanges() '
print ' BindGrid() '
print ' Catch ex As Exception '
print ' MsgBox(ex.Message) '
print ' End Try '
print ' End Sub'