http://pan.baidu.com/share/link?shareid=2794516520&uk=315529

经核实吧主黑客大叔 未通过普通吧主考核。违反《百度贴吧吧主制度》第八章规定http://tieba.baidu.com/tb/system.html#cnt08 ，无法在建设 vb12sql吧 内容上、言论导向上发挥应有的模范带头作用。故撤销其吧主管理权限。百度贴吧管理组

批处理+配置说明+源码： http://pan.baidu.com/share/link?shareid=583127817&uk=3155297

【配置】：用户名，密码，IP 端口,数据库名称 1：将配置文件放入 DataBase.ini 文档[uid]=sa[pwd]=dwz10110511[srn]=127.0.0.1,1754[sysdb]=yygl 2：建立标准模块 Module1 Public SRN As String Public uID As String Public PWD As String Public SysDB As String '系统的 main（） 主函数 读取配置文件 Sub Main() Dim Intext As String Open (App.Path & "\DataBase.ini") For Input As #1 Line Input #1, Intext uID = Mid(Intext, 7, Len(Trim(Intext)) - 6) Line Input #1, Intext PWD = Mid(Intext, 7, Len(Trim(Intext)) - 6) Line Input #1, Intext SRN = Mid(Intext, 7, Len(Tr

http://pan.baidu.com/s/1vdEII

DLL+源码+配置说明： http://pan.baidu.com/share/link?shareid=1227001379&uk=315529

比如第1,5,9,13等数据行，主要是假如你循环正面删除，会出现删除这行的后面所有行全部前进，索引减 1。会导致一些漏删！

http://pan.baidu.com/share/link?shareid=2798238088&uk=315529

功能模块：基础资料+库存管理+门诊管理+住院管理(适用一般的中小型医院) 图：

1、"&"替换"+".在很多人的编程语言中，用“+”来连接字符串，这样容易导致歧义。良好的习惯是用“&”来连接字符串. 不正确: dim sMessage as string sMessage="1"+"2" 正确: dim sMessage as string sMessage="1" & "2" 注意:"&"的后面有个空格. 2.变量命名大小写,语句错落有秩下面大家比较一下以下两段代码:读懂难度很大的代码: dim SNAME as string dim NTURN as integer if NTURN=0 then if SNAME="sancy" then end if Do while until NTURN=4 NTRUN=NTURN+1 Loop End if 容易读懂的代码: dim sName as string di

我本机已经单独装好了CRforVS了，我用VS2010新建报表时还出这个提示，怎么回事

http://pan.baidu.com/share/link?shareid=2412647389&uk=315529

本贴禁止灌水！违者一律删除留贴！

http://pan.baidu.com/s/1vGW4A

http://pan.baidu.com/s/1zKHlO

　VB.NET（Visual Basic.NET）是为适应Microsoft .NET框架的需要，对Visual Basic进行了重大改造后的开发工具。它比Visual Basic 6.0功能更强大，更易于使用。其中最重要的变化就是对象继承，在VB.NET中，所有可管理的类型都衍生自System.Object。作为编程工具，最重要的一个特性就是垃圾碎片的回收，它由CLR（Common Language Runtime）进行控制，并提供更好的内存管理功能。通用的类型定义可以提供更好的互操作性和协同工作能力，因此，VB.NET显得更强大、更具可靠性。

求助 ，如何自定义这个函数 想建一个自定义函数ifget ifget（x ，y） xy是字符串 ，函数的返回值是根据xy的关系返回一个布尔值 ，我是新手 ，求完整函数 若y在x用出现就返回FALSE ，反之就返回TRUE ，大概用到的有 for循环 MID函数 len函数 if语句 不要直接用instr函数 ，我还要加一些东西。 有会的呢 ，求完整的函数 ，能直接调用呢？

http://www.cppblog.com/IanZhu/archive/2007/05/27/24381.html

Private Sub Command1_Click() If Text1.Text <> "" Then MsgBox check(Trim(Text1.Text)) Else MsgBox "不为空！" End If End Sub Private Function check(ByVal st As String) As Boolean Dim R As String R = Trim(Str(st)) If R = StrReverse(R) Then check = True '函数 返回 true Else check = False '函数 返回 false End If End Function

将SQL语句里的"+" 全部改用 "&"，就可以解决。

http://hi.baidu.com/xjnzhidao/item/55ca2adf1fef9dfd3dc2cb9a

C#中就很方便了,直接控件事件(sender,e),可是vb要怎么用.不知道大家有没有听明白我的问题,欢迎发问.

一般用在：报表 金额转大写 http://pan.baidu.com/share/link?shareid=537475616&uk=3155297

因为喜欢，所以开看。

吧主木有源码怎么吸引人呢