关于vb点虐 实现公文管理的信息

使用VB.NET的五个技巧之处理数据行

处理数据行（DataRow）

成都创新互联公司是一家专业从事网站设计制作、做网站、网页设计的品牌网络公司。如今是成都地区具影响力的网站设计公司,作为专业的成都网站建设公司,成都创新互联公司依托强大的技术实力、以及多年的网站运营经验,为您提供专业的成都网站建设、营销型网站建设及网站设计开发服务！

Windows窗体中的数据绑定列表框和组合框很节省时间 典型的代码如下（假定已经建立了SqlDataAdapter或者其它部件获取数据）

Dim ds As New DataSet() SqlDataAdapter Fill(ds Customers ) ListBox DataSource = ds Tables( Customers ) ListBox DisplayMember = CompanyName ListBox ValueMember = CustomerID

在这种情况下 代码使用Northwind数据库的顾客记录工作 DisplayMember属性设置为你希望用户在列表框中看到的记录字段 它是customers表的CompanyName 通常ValueMember属性设置为数据表中的一个键字段 对于customer来说是CustomerID 一旦用户选择了列表框中的一行 很容易使用列表框的SelectedValue属性获得键字段

MsgBox（ListBox SelectedValue）

但是有可能需要一个与被选择项相关的整个数据行对象的引用 例如 如果被选择的行需要被删除 就不知道键了 你需要一个数据行的引用以使用Delete方法

典型的Visual Basic开发者通常这样想 我已经得到了该行的键了 我将编写一些逻辑来查找使用该键的行 这样可以实现 但是有更好的实现方法 可以使用一行代码获取与列表框中选项关联的数据行

Dim dr As DataRow = CType（ListBox SelectedItem DataRowView） Row

通常该逻辑不会凭直觉出现 即使对经验丰富的开发者 为了解释这是怎样实现的 我把上面的一行拆成几行 下面的代码与上面代码的功能相同

Dim drv As DataRowView drv = CType(ListBox SelectedItem DataRowView) Dim dr As DataRow dr = drv Row

DataRowView类是数据行的包装 它被多个Windows窗体控件使用 它使得显示与控件中的数据行相关的数据更加容易 当列表框被数据绑定到数据表时（假定列表框中的有些行当前被选定了） 列表框的SelectedItem属性保存了一个DataRowView对象

这意味着我们能把列表框的SelectedItem属性转换到DataRowView对象 这就是上面代码中的第二行实现的 接着DataRowView暴露一个Row属性 它指向被包装的数据行 上面的代码声明了一个数据行并设置了Row属性

转换对象的类型以访问它的接口的技术在Visual Basic 中不是经常使用 但是在Visual Basic NET中这是经常的 有了上面的例子后 大多数有经验的开发者迅速跟上了这种技术

数据行的引用（dr）可用于用任何方式维护行 访问数据行中的任何特定字段是可行的 行中的数据可以被改变 能使数据行的Delete方法把该行标识为删除 或者从数据表的行集合中删除该行 下面的代码标识删除了一行

dr Delete（）

lishixinzhi/Article/program/net/201311/12974

请问在VB点虐 中能不能实现这种功能

基本思路：

1，设置绘图区域的坐标。

2，将每个站点的坐标（x,y)保存到数组。

3，通过鼠标单击点的坐标（x,y)与数组比较，然后确定显示相应信息。

vb点虐 怎么分层

这里有个C#的网上OA的代码，可以参考一下：

第10章（\C10）

示例描述：本章实现了办公自动化系统，通过该系统，公司不同角色的员工可以通过网路完成日常的办公，包括撰写报告、审阅公文等。另外，系统还将实现一个系统管理员角色，对整个系统进行动态的维护。

\MyOA\Affix 网络办公系统用户上传附件目录

\MyOA\App_Code\BusinessLogicHelper 网络办公系统业务逻辑接口层，包括文件：

\FileHelper.cs 公文接口类

\ValidateUtility.cs 数据验证功能类

\MyOA\App_Code\BusinessLogicLayer 网络办公系统业务逻辑层，包括以下文件：

\Department.cs 部门类

\File.cs 公文类

\FileStatus.cs 公文状态类

\Plan.cs 工作计划类

\Role.cs 用户角色权限类

\User.cs 用户类

\MyOA\App_Code\CommonComponent 网络办公系统通用组件层，包括文件：

\Encrypt.cs 字符串加密类

\EventsLog.cs 系统日志类

\Tree.cs 权限树类

\MyOA\App_Code\DataAccessHelper 网络办公系统数据访问接口层，包括文件：

\SQLString.cs 构造SQL语句的通用类

\GetSafeData.cs 安全获取数据类

\MyOA\App_Code\DataAccessLayer 网络办公数据访问层，包括文件：

\Database.cs 数据访问类

\MyOA\App_Code\UserControls 网络办公用户控件，包括文件：

\LeftTree.ascx 权限树菜单控件

\MyOA\DB\MyOA_CreateTable.sql 网络办公数据库创建脚本

\MyOA\DB\MyOA_InitData.sql 网络办公数据库数据初始化脚本

\MyOA\Images\ 网络办公系统图片文件夹

\MyOA\Styles\Styel.css 网络办公系统样式表文件

\MyOA\Default.aspx 系统首页

\MyOA\FileAdd.aspx 添加公文页面

\MyOA\FileDetail.aspx 查看公文详细信息页面

\MyOA\FileList.aspx 浏览、查询公文页面

\MyOA\Login.aspx 登录页面

\MyOA\LogView.aspx 日志管理页面

\MyOA\PlanList.aspx 工作计划管理页面

\MyOA\RoleManage.aspx 权限管理页面

\MyOA\UserAdd.aspx 添加用户页面

\MyOA\UserList.aspx 浏览、查询用户页面

\MyOA\UserResetPwd.aspx 用户修改密码页面

\MyOA\UserUpdate.aspx 修改用户信息页面

虽然不是VB，不过都是点虐 ，应该能看懂吧。