求助，用VB编写小程序

2017-12-11 11:37:08 1.2k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

qidingshenxian1 墨衍会员 · AI 创作全网分发关注 + 加入社区

使用VB.net和VB编写DLL组件的方法使用ESRI 的AO进行开发的时候，最常用的开发手段之一就是写DLL组件，使用VB或者VB.NET编写DLL组件的方法是不一样的。写DLL的时候，就是继承某个接口，而接口里面的方法和属性必须完全实现，不能够有任何的遗漏。以下便是VB和VB.NET开发AO的方法：1.使用VB写DLL使用一个Icommand或者Itool来写DLL组件，例子如下：1.1在VB中开始一个ACTIVE DLL组件项目1. 阅读详情

大家好

我想用VB编写一个查询的小程序
有一个Excel表格，我简化了一下
主要是想根据第一列和第二列的条件，在界面上得到第三列的结果

我的想法是建立两个Combo框，第一个框列出第一列的情况，第二个框列出第二列的情况
然后通过Command按钮，得到对应的第三列的信息

希望大神们指导一下
谢谢

...全文

如何用VB6.0编写一个用户登录系统工具/原料电脑VB6.0软件（没有的就去去下载一个）方法/步骤    进入VB6.0软件，双击“标准EXE”显示的页面如图。预设正确的用户名和密码为cxywlq和701213。    先从控件栏选择标签控件在form1窗体的相应位置画两个大小适合的标签，再从控件栏选择文本框控件在form1窗体的相应位置画两个大小适合的文本框，然后再从控件栏选择按钮控件在fo... 阅读详情

qidingshenxian1

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

qidingshenxian1 2017-12-17

打赏
举报

引用 19 楼 Chen8013 的回复:

自己修改一下吧。参考这一句： arrDataList(lListPnt).Comment(k) = objDocSht.Cells(i, 3).Value 这儿 objDocSht.Cells(i, 3).Value　就是取之前指定工作表的“第i行、第3列（C列）的值”。　　你如果要取第4列（D列），把3改成4就行了。1对应A列，2对应B列……其它类推。这个 .Value，就是表示取单元格的“结果”，如果单元格实际是填入的“公式”，那么就是“公式计算结果”。注意一下，“日期、时间”取出来可能是“一个数值”（猜测的，你可以自己验证一下），　　这种情况下如果要取“日期、时间文本”，你可以试下把 .Value改为 .Text 。

哈哈，大神就是厉害十分感谢~

qidingshenxian1 2017-12-16

打赏
举报

引用 16 楼 Chen8013 的回复:

对了，15楼的代码：第20行　和　第34行　暂时用不上，把它们删除吧。

大神，在问个问题哈如果我需要的信息在第四列的话，（现在的李阳，李与等人物是在第三列），需要加个什么语句还是哪里修改一下？谢谢

舉杯邀明月 2017-12-16

打赏
举报

自己修改一下吧。

参考这一句： arrDataList(lListPnt).Comment(k) = objDocSht.Cells(i, 3).Value 这儿 objDocSht.Cells(i, 3).Value　就是取之前指定工作表的“第i行、第3列（C列）的值”。　　你如果要取第4列（D列），把3改成4就行了。1对应A列，2对应B列……其它类推。这个 .Value，就是表示取单元格的“结果”，如果单元格实际是填入的“公式”，那么就是“公式计算结果”。注意一下，“日期、时间”取出来可能是“一个数值”（猜测的，你可以自己验证一下），　　这种情况下如果要取“日期、时间文本”，你可以试下把 .Value改为 .Text 。

qidingshenxian1 2017-12-15

打赏
举报

引用 16 楼 Chen8013 的回复:

对了，15楼的代码：第20行　和　第34行　暂时用不上，把它们删除吧。

太棒了！可以了谢谢大神！！！我再去具体研究一下代码真心感谢~~

舉杯邀明月 2017-12-15

打赏
举报

对了，15楼的代码：第20行　和　第34行　暂时用不上，把它们删除吧。

舉杯邀明月 2017-12-15

打赏
举报

只需要把开头的“声明”部分，和第1个过程 Sub LoadData() 这一段代码换成下面这段。其它地方不用变。

Option Explicit

Private Type DataInfo
   Comment()   As String
   ID_List()   As String
   Title    As String
   MaxSN    As Long
End Type

Private arrDataList() As DataInfo
Private mlListMaxSN     As Long
Private mlListMaxUBD    As Long

Private Sub LoadData()
   Dim objExcel   As Object
   Dim objDocWBK  As Object
   Dim objDocSht  As Object
   Dim strName    As String
   Dim strTemp    As String
   Dim lPartID    As Long
   Dim lNullCount As Long
   Dim lListPnt   As Long
   Dim i&, k&, w  As Long

   mlListMaxSN = -1&
   On Error GoTo E_FinalExit
   Set objExcel = CreateObject("Excel.Application")
   ' 从哪个文档加载数据，按你的实际情况更改：
   Set objDocWBK = objExcel.Workbooks.Open("E:\Temp\数据信息.xlsx", True)
   Set objDocSht = objDocWBK.Sheets("Sheet1")
   mlListMaxUBD = 7&
   ReDim arrDataList(mlListMaxUBD)
   strName = vbLf ' 随便设置一个“不可能”且不为空的初值
   lPartID = 0&
   lListPnt = -1&
   lNullCount = 0&
   i = 1&         ' 数据从“第1行”开始
   Do
      strTemp = objDocSht.Cells(i, 1).Value
      If ("" = strTemp) Then
         lNullCount = 1& + lNullCount
         If (5& = lNullCount) Then        ' 检测到“连续5个空行”判定数据结束
            mlListMaxSN = lListPnt
            arrDataList(lListPnt).MaxSN = k
            Exit Do
         End If
      Else
         lNullCount = 0&
         If (strTemp <> strName) Then
            If (-1& < lListPnt) Then arrDataList(lListPnt).MaxSN = k
            strName = strTemp
            lListPnt = 1& + lListPnt
            If (lListPnt > mlListMaxUBD) Then
               mlListMaxUBD = 4& + mlListMaxUBD
               ReDim Preserve arrDataList(mlListMaxUBD)
            End If
            k = 0&:  w = 7&
            ReDim arrDataList(lListPnt).ID_List(w)
            ReDim arrDataList(lListPnt).Comment(w)
            arrDataList(lListPnt).Title = strName
         Else
            k = 1& + k
            If (k > w) Then
               w = 8& + w
               ReDim Preserve arrDataList(lListPnt).Comment(w)
               ReDim Preserve arrDataList(lListPnt).ID_List(w)
            End If
         End If
         arrDataList(lListPnt).ID_List(k) = objDocSht.Cells(i, 2).Value
         arrDataList(lListPnt).Comment(k) = objDocSht.Cells(i, 3).Value
      End If
   
      i = 1& + i
   Loop
   
E_FinalExit:
   Set objDocSht = Nothing
   Call objDocWBK.Close(False)
   Set objDocWBK = Nothing
   Call objExcel.Quit
   Set objExcel = Nothing
End Sub

qidingshenxian1 2017-12-15

打赏
举报

引用 13 楼 Chen8013 的回复:

你没有网盘吗…… 要真没有，你可以把文档传到我的这个网盘中吧： http://chen8013.ys168.com/ 进入后（如果你的浏览器提示“风险”什么的，没必要理它，只管“继续”），再进入第1个文件夹“其它”（注意用鼠标点“其它”这个文字部分），认证密码是　2013758 认证过后，就可以从左边“上传文件”选项卡，把文档放到里面了。你在11楼的“数据”，　Modi这部分“第1列”完全不重复的啊……

谢谢大神我传到你的共享盘了-->数据查询的压缩包那个Excel表格更新了麻烦帮忙看看谢谢

舉杯邀明月 2017-12-14

打赏
举报

你没有网盘吗…… 要真没有，你可以把文档传到我的这个网盘中吧： http://chen8013.ys168.com/ 进入后（如果你的浏览器提示“风险”什么的，没必要理它，只管“继续”），再进入第1个文件夹“其它”（注意用鼠标点“其它”这个文字部分），认证密码是　2013758 认证过后，就可以从左边“上传文件”选项卡，把文档放到里面了。你在11楼的“数据”，　Modi这部分“第1列”完全不重复的啊……

舉杯邀明月 2017-12-14

打赏
举报

“开始空行”很好办啊。一般正规的“数据表格”都有表头的嘛（并且“表头行”占多少行无所谓），我写这种代码基本都会考虑这个的。在 Sub LoadData() 中，有一行代码： i = 1& ' 数据从“第1行”开始你改这个“初始值”就行了啊。比如你的“表头（以及“空行”）行”共占了5行，那么数据就是从“第6行”开始的。把这句改成　i = 6　就行了嘛………… 但你说的“中间空行”，这不应该吧！对于“关键字段”，内容怎么会“空”呢！因为要应对“不确定数据量”，总得有“数据结束”的判断依据吧！当然，这个“结束条件”并不是必须这样写，你可以按实际情况，用其它方式判断“数据是否结束”的，然后适当修改就行了。如果“数据源”内容是固定的，你也可以改为“固定从xx行读取到xxxx行结束…… 顺便说一下别的问题：　

在Private Sub LoadData( )　中，有个变量声明：　Dim lListPnt As String 　　这个输入失误，正确的应该是：　Dim lListPnt As Long 传了代码之后，偶然发现，不过我已经关了浏览器，在弄别的东西了，就没说这个。

qidingshenxian1 2017-12-14

打赏
举报

引用 8 楼 Chen8013 的回复:

其实不难。　

不过，不好用文字来描述，给你写了个简单的示例，自己下载来看看吧。
注意代码中的“文件路径”需要按你的实际情况更改一下。
我用的绝对路径，你也可以改来用“相对路径”。
但如果“相对路径”是相对于App.Path，要注意用“双击工程文件”方式打开，否则在IDE中运行时“相对关系”不一定正确。

代码在百度网盘：
链接：　https://pan.baidu.com/s/1c168Oog
密码：　785w

我做了个Excel表格，帮忙看看？上传不方便，我复制在下面，开头有两行是空的， part1, part 2,Modi在第二列

part1
SK326_0CS HS 张汉
SK326_0CS FG 李与
SK326_0CS DG 成杰
SK326_0CS SK 成杰
SK326_0CS DG 王小东
SK326_0CS GH 乔斌
SK326_0CS YH 乔斌
SK326_0CS SS 王小东
SK326_0CS SDF 张雷

part2
VW345_1CS HS 张汉
VW345_1CS FG 张汉
VW345_1CS DG 王小东
VW345_1CS SK 乔斌
VW345_1CS DG 乔斌
VW345_1CS GH 王小东
VW345_1CS YH 张雷

Modi
AU276_0CS SS 李嘉
AU276_1CS RT 王小东
AU276_2CS YU 乔斌
AU276_3CS EW 李力
AU276_4CS PSD 李力
AU276_5CS TKM 张雷
AU276_6CS FS 李与

qidingshenxian1 2017-12-14

打赏
举报

引用 8 楼 Chen8013 的回复:

其实不难。　不过，不好用文字来描述，给你写了个简单的示例，自己下载来看看吧。注意代码中的“文件路径”需要按你的实际情况更改一下。我用的绝对路径，你也可以改来用“相对路径”。但如果“相对路径”是相对于App.Path，要注意用“双击工程文件”方式打开，否则在IDE中运行时“相对关系”不一定正确。代码在百度网盘：链接：　https://pan.baidu.com/s/1c168Oog 密码：　785w

刚刚尝试了一下，你编写的程序是可以的，你这个对我真是太有用了但是遇到的问题是：我的Excel开始的几行是空白的，这样就导致出现一个问题：下标越界还有就是中间也有可能出现空的行，这样的话，在下拉列表里不能小时空白行之后的信息了另外，我在第一行的是英文字母加下划线之类的好像也不行比如 SK_326/0SS 还请麻烦指导一下，方便的话，留一下QQ或者微信吧我向你请教一下谢谢

qidingshenxian1 2017-12-14

打赏
举报

引用 8 楼 Chen8013 的回复:

其实不难。　不过，不好用文字来描述，给你写了个简单的示例，自己下载来看看吧。注意代码中的“文件路径”需要按你的实际情况更改一下。我用的绝对路径，你也可以改来用“相对路径”。但如果“相对路径”是相对于App.Path，要注意用“双击工程文件”方式打开，否则在IDE中运行时“相对关系”不一定正确。代码在百度网盘：链接：　https://pan.baidu.com/s/1c168Oog 密码：　785w

还没有好好看，但是真是太感谢你了~~ 先把这个结了，后续有问题再请教你哈~~

舉杯邀明月 2017-12-13

打赏
举报

其实不难。　

不过，不好用文字来描述，给你写了个简单的示例，自己下载来看看吧。注意代码中的“文件路径”需要按你的实际情况更改一下。我用的绝对路径，你也可以改来用“相对路径”。但如果“相对路径”是相对于App.Path，要注意用“双击工程文件”方式打开，否则在IDE中运行时“相对关系”不一定正确。代码在百度网盘：链接：　https://pan.baidu.com/s/1c168Oog 密码：　785w

qidingshenxian1 2017-12-13

打赏
举报

引用 6 楼 zdingyun 的回复:

[quote=引用楼主 qidingshenxian1 的回复:] 大家好我想用VB编写一个查询的小程序有一个Excel表格，我简化了一下主要是想根据第一列和第二列的条件，在界面上得到第三列的结果我的想法是建立两个Combo框，第一个框列出第一列的情况，第二个框列出第二列的情况然后通过Command按钮，得到对应的第三列的信息希望大神们指导一下谢谢

从所附Excel表内容看，无论如何也无由第一、第二列得到第三列的内容。凡数据表查询、生成新的排序可用SQL语句与数据控件关联生成新临时表或数组来呈现于数据表格控件。[/quote] 这个表格是我随便拉的一个，希望大神详细指点一下谢谢