如果A表和B表存在关联，比如查处的结果不唯一，更新时则报错ORA-01779，如果一定要更新，那就的加上提示:  /*+ BYPASS_UJVC */,这样oracle就不检查健约束

        For col As Integer = flexGrid.Cols.Fixed To flexGrid.Cols.Count - 1
            If flexGrid.Cols(col).AllowEditing = False Then
                flexGrid.Cols(col).Style = cs
            End If
        Next
2  导出文件
   可以很方便的导出到excel等
    Dim File As New SaveFileDialog
    Dim filename As String
    File.Filter = "xls files (*.xls)|*.xls|All files (*.*)|*.*"

    If File.ShowDialog = DialogResult.OK Then
            If File.FileName.Trim().Length > 0 Then
                filename = File.FileName.Trim()
                File.OverwritePrompt = True
                If _flex.Cols.Contains("Check") Then
                    _flex.Cols.Remove("Check")
                End If

                _flex.SaveGrid(filename, C1.Win.C1FlexGrid.FileFormatEnum.Excel,C1.Win.C1FlexGrid.FileFlags.IncludeFixedCells)
                MessageBox.Show("导出文件成功！", "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Else
                MessageBox.Show("请输入保存文件名称！", "提示信息", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
还有好多常用功能，在这就不罗列了，有使用此控件的朋友，可以一起交流

由于项目中输入文本框居多，所以赋值有时很不方便，为了把实体赋值给相应的文本框，做了一个方法：

Public Shared Sub BatchSetData(ByRef ctl As Control, ByRef entity As Object, ByVal prefixControl As String)
        Dim ctlName As String = ""
        '若界面上是TableLayoutPanel 
        If TypeOf (ctl) Is TableLayoutPanel Then
            Dim objTableLayout As TableLayoutPanel = CType(ctl, TableLayoutPanel)
            Dim objType As Type = entity.GetType()

            Dim proInfo() As Reflection.PropertyInfo
            proInfo = objType.GetProperties()

            Dim _label As Label

            '遍历界面上Label的控件
            For i As Integer = 0 To proInfo.Length - 1
                ctlName = proInfo(i).Name.ToString() + prefixControl
                _label = CType(objTableLayout.Controls.Item(ctlName), Label)
                '根据实体中不同的类型完成赋值
                If _label IsNot Nothing Then
                    _label.Text = proInfo(i).GetValue(entity, Nothing)
                End If
            Next
        End If
    End Sub

编码中，经常会遇到数据类型转换，有时需要转成Int型，有时需要转成Double......感觉有些不便，所有写了一个方法，利用范型转换，由于客户要求使用vb.net，没法子，其实我喜欢C#，呵呵.....

下面是代码:

    Public Shared Function GenericCast(Of U, V)(ByVal value As U) As V
        If Convert.IsDBNull(value) = False AndAlso value IsNot Nothing

           AndAlso   value.ToString().Trim.Length > 0 Then
            Return CType(DirectCast(value, Object), V)
        End If

        If GetType(V) Is System.Type.GetType("System.String") Then
            Return CType(DirectCast("", Object), V)
        End If

        If GetType(V) Is System.Type.GetType("System.Boolean") Then
            Return CType(DirectCast(False, Object), V)
        End If

        Return CType(DirectCast(0, Object), V)

    End Function

以下是代码：

清空窗体内文本框中的值，您可以换成其他控件，就可以满足同等需求，代码很简单，只是提供方法

 Public Shared Sub Clear(ByRef obj As Control)

     For Each ctl As Control In obj.Controls
            If TypeOf (ctl) Is TextBox Then
                ctl.Text = ""
            End If
            If Not ctl.Controls Is Nothing Then
                Clear(ctl)
            End If
        Next
    End Sub

select distinct 'alter   table   ' || table_name || '   modify   ' || ColumnName || '   CHAR(17);'
    from cols
   where data_type = 'CHAR'
   and column_name = ColumnName

     and table_name in(
select t.object_name from all_objects t where t.owner='NEWPRAS' and t.object_type ='TABLE')