'Dim dr5 As DataRow = qxgl.sqlfind("[name] = '" & _username & "' And [窗体名称] = '销售出库开单'")
'If dr5 IsNot Nothing Then
    'If dr5("显示价格") = False Then
        
If Functions.Execute("是否有权限","销售出库开单","显示价格") = 0 Then
        Dim values2() As String = _pricename.Split("|")
        
        For i2 As Integer = 0 To  values2.length - 1
            If e.Form.Controls("Table1").Table.cols.Contains(values2(i2)) Then
                e.Form.Controls("Table1").Table.Cols.Remove(values2(i2))
            End If
            If e.Form.Controls("Table2").Table.cols.Contains(values2(i2)) Then
                e.Form.Controls("Table2").Table.Cols.Remove(values2(i2))
            End If
            If e.Form.Controls("Table3").Table.cols.Contains(values2(i2)) Then
                e.Form.Controls("Table3").Table.Cols.Remove(values2(i2))
            End If
            If e.Form.Controls("Table4").Table.cols.Contains(values2(i2)) Then
                e.Form.Controls("Table4").Table.Cols.Remove(values2(i2))
            End If

            If e.Form.Controls("Table5").Table.cols.Contains(values2(i2)) Then
                e.Form.Controls("Table5").Table.Cols.Remove(values2(i2))
            End If

If e.Form.Controls("Table6").Table.cols.Contains(values2(i2)) Then
            e.Form.Controls("Table6").Table.Cols.Remove(values2(i2))
        End If
        Next
    End If
e.Form.Controls("单价").performclick()
Forms("销售订单报表").Controls("单价").performclick()
Public  _mls As String
Public fhs As New List(of String)
Public  _djlx As String
Public  _bj As String
Public  _上传路径 As String

Public  _rrow As Row
Public  _pricename As String = "应收金额|本期应收含税|已收金额|未收金额|货品单价|货品金额|含税单价|含税金额|税率|订单汇总金额|应收金额含税|最后单价|最后金额|未收金额含税|已付金额|未付金额|应付金额|预设售价|库存金额|应付金额含税|未付金额含税|预设金额|一级售价|二级售价|三级售价|加工单价|折后单价|折后金额|材料单价|下级费|加工费|加工单价|加工金额人工费|其它费|管理费|收款已收|未发货金额|付款已付|最后进价|预设进价|成本价格|总成本|总金额"