学无止境

Life-long learning
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

随笔分类 -  VB.Net 项目点滴

新一代信息管理系统

合并DataGird列中相同的列

摘要：Private Sub SpanGrid() Dim i, j, m As Integer Dim intSpan As Integer, NowSpan As Integer = 0 Dim strTemp, temp As String For m = 0 To 1 NowSpan = 0 ... 阅读全文

posted @ 2008-08-12 14:08 anytime8 阅读(206) 评论(0) 推荐(0)

文件上传中各VB.net代码

摘要：#Region "---- 在此处放置初始化页的用户代码" Public Overrides Sub BindInitPage() Try Dim cls As New Cls_TB_Area cls.find(Session("UserRight"), Session("UserLevel")) Di... 阅读全文

posted @ 2008-08-06 15:31 anytime8 阅读(1023) 评论(0) 推荐(0)

部分sql

摘要：TB_ClientList SELECT TB_Area.Name AS AreaName, TB_A_Service.Service as ServiceRoom, TB_ClientList.* , TB_ModuleType.title as ModuleType, TB_Templet.T_Name as Templet, CASE WHEN TB_ClientList.Status... 阅读全文

posted @ 2008-08-06 15:27 anytime8 阅读(161) 评论(0) 推荐(0)