Protected Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
Try
SetRowData()
Dim table As DataTable = TryCast(ViewState("CurrentTable"), DataTable)
If table IsNot Nothing Then
For Each row As DataRow In table.Rows
Dim funob As String = TryCast(row.ItemArray(1), String)
Dim measur As String = TryCast(row.ItemArray(2), String)
Dim d_line As String = TryCast(row.ItemArray(3), String)
Dim wtfact As String = TryCast(row.ItemArray(4), String)
If funob IsNot Nothing OrElse measur IsNot Nothing OrElse d_line IsNot Nothing OrElse wtfact IsNot Nothing Then 'OrElse drpQual IsNot Nothing
Response.Write(String.Format("{0} {1} {2} {3} <br />", funob, measur, d_line, wtfact)) ', drpQual
End If
Next
End If
Catch ex As Exception
Throw New Exception(ex.Message)
End Try
End Sub
End Class