' GET: /SystemBranch/
Function Index() As ActionResult
ViewBag.UnitKindList = PositionUnitKindList()
Dim sSQL As String = "Select * From SystemBranches Where BRH_Code <> ''"
'查询
Dim sUnitKind As String = ""
If Not IsNothing(Request.QueryString("cboUnitKind")) Then
sUnitKind = Request.QueryString("cboUnitKind").ToString
End If
If sUnitKind <> "" Then
sSQL = sSQL & " And BRH_UnitKind Like '" & LIKECHAR & Rep(sUnitKind) & LIKECHAR & "'"
End If
Dim sFind As String = ""
If Not IsNothing(Request.QueryString("txtQuickfind")) Then