VB显示未找到方法或数据成员

相关推荐

• VB怎样获取数据库多条数据

  5年前
  回答 1 已采纳 我想把查询到到第一条记录和最后一条记录之间某字段的值赋值给数组。
• 如何用VB编程实时刷写数据？

  3年前
  回答 2 已采纳 我现在有一个txt文件，在持续采集传感器数据过程中，存储达到指定值前10000个数据。 我希望可以持续写入数据，达到10000个后，每采集一个就删除最早的一个，保持10000个数据，最后达到指定值时，停止采集并停止写入，留存最后那10000个数据。
• vb.net datagridview只显示前面20条数据 visual studio

  2年前
  回答 2 已采纳 我有一数据从SQL载到DataTable 我打算数据在DataTable是保持原本的数量(比如有1w笔数据) 然后只载出最前面的20笔数据到DataGridView，请问要如何写呢 已经和SQL无关了 你好Caozhy，我用你的方式来试，下面有报错，请您看一下 
• vb执行update 語句后，数据库数据无变化 sqlsqloracle

  3年前
  回答 5 已采纳 vb 有如下代码，连接的Oracle数据库。程序执行无报错，但是数据库中数据表无变化！！！ 求解？ ``` Public adocn As New ADODB.Connection Public Sub Adocn_Connection() Set adocn = New ADODB.Connection adocn.CursorLocation = adUseClient adocn.ConnectionString ="Provider=MSDAORA.1;Password=123456;User ID=ABC;Data Source=dcqs;Persist Security Info=True" adocn.Open End Sub Private Sub CmdReset_Click() Dim StrReset As String Dim RsReset As New ADODB.Recordset Call Adocn_Connection RsReset.CursorLocation = adUseClient StrReset = "update filedata set a='1' where b=' " & Trim(Txt.Text) & "'" RsReset.Open StrReset, adocn, adOpenDynamic, adLockBatchOptimistic '.Execute(StrReset) End Sub ```
• vb.net中如何解析Json数据？ 开发语言

  2年前
  回答 2 已采纳 vba 中解析json数据如下： ``` Sub VBA_Json() Dim JsonStr As String Dim SC As Object Dim AA, BB JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"":""谢文泽""}}" Set SC = CreateObject("ScriptControl") SC.Language = "JScript" Set AA = SC.Eval("eval(" & JsonStr & ")") Set BB = AA.dataa Debug.Print BB.maxPage '打印 43522 Debug.Print BB.ppiUsername '打印 谢文泽 End Sub ``` 现在在vb.net中，如何用Imports **Microsoft.JScript**解析上述json数据呢？ vsto版本是2012版本。
• vb6.0中一些定义和使用方法？

  3年前
  回答 2 已采纳 本人新手刚接触vb,不太懂这些，求解vb中要怎么使用? 以下是在vb.net中的代码 ``` ```
• VB.NET提示未将对象引用设置到对象的实例

  5年前
  回答 1 已采纳 我做毕业设计，用VB.NET设计界面，打开pre/e的模型，但是一直错误，求指点  Imports pfcls Imports System.Reflection.Assembly Public Class 建模 Public asyncConnection As IpfcAsyncConnection Public cac As CCpfcAsyncConnection Dim model As IpfcModel Public parameterOwner As IpfcParameterOwner Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim cac As CCpfcAsyncConnection cac = New CCpfcAsyncConnection asyncConnection = cac.Start("D:\Program Files\proeWildfire 4.0\bin\proe1.bat", ".") Dim proeid As IpfcAsyncConnection proeid = (New CCpfcAsyncConnection).Connect(Nothing, Nothing, Nothing, Nothing) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim descModel As IpfcModelDescriptor Dim options As IpfcRetrieveModelOptions Dim session As IpfcBaseSession Dim currentws As Object session = asyncConnection.Session options = (New CCpfcRetrieveModelOptions).Create options.AskUserAboutReps = False session.ChangeDirectory("D:\ZY") descModel = (New CCpfcModelDescriptor).Create(EpfcModelType.EpfcMDL_PART, Nothing, Nothing) descModel.Path = "D:\ZY\asm0001.asmt" model = asyncConnection.Session.RetrieveModelWithOpts(descModel, options) session.CreateModelWindow(model) currentws = session.GetCurrentWS() model.Display() End Sub
• vb中对listview1的数据进行双击 到listview2 怎么写 求各路大神指教 小弟有礼了 list

  4年前
  回答 1 已采纳 Option Explicit Public gObjPY As New cls_com_PY Private obj基础数据_添加套餐项目 As New cls基础数据_添加套餐项目 Public Function 加载添加套餐项目() As Long On Error GoTo 加载添加套餐项目_error Dim strsql As String, itemx As ListItem, lngI As Integer Dim rst As New ADODB.Recordset Dim lng As Long lngI = 1 '首先判断是否不是空值 If frm基础数据_添加套餐项目.cbo套餐类型.Text = "" Then GoTo Proc_Exit '根据用户选择项目类型进行加载类型项目 If frm基础数据_添加套餐项目.cbo套餐类型 = "全部" Then strsql = "select * from 基础数据_组合项目表 a ,基础数据_组合项目类型表 b where a.组合项目类型 =b.组合项目类型名称 order by b.顺序 ,a.顺序 " Else strsql = "select * from 基础数据_组合项目表 a ,基础数据_组合项目类型表 b where a.组合项目类型 =b.组合项目类型名称 " strsql = strsql & " and a.组合项目类型 ='" & frm基础数据_添加套餐项目.cbo套餐类型 & "' order by b.顺序 ,a.顺序 " End If '加载项目 frm基础数据_添加套餐项目.lv项目.ListItems.Clear If gObjDatabase.GetOneRst(strsql, rst) <> 0 Then GoTo Proc_Exit If Not rst.EOF Then Do Until rst.EOF Set itemx = frm基础数据_添加套餐项目.lv项目.ListItems.ADD(, , lngI) Call gObjControl.SetLvItemValue(frm基础数据_添加套餐项目.lv项目, itemx, "组合项目序号", Trim(rst("组合项目序号") & "")) Call gObjControl.SetLvItemValue(frm基础数据_添加套餐项目.lv项目, itemx, "组合项目名称", Trim(rst("组合项目名称") & "")) Call gObjControl.SetLvItemValue(frm基础数据_添加套餐项目.lv项目, itemx, "组合项目类型", Trim(rst("组合项目类型") & "")) lngI = lngI + 1 rst.MoveNext Loop End If '增加项目类型 strsql = "select * from 基础数据_组合项目表 order by 顺序" & vbCrLf If gObjDatabase.GetOneRst(strsql, rst) <> 0 Then GoTo Proc_Exit If Not rst.EOF Then Do Until rst.EOF frm基础数据_添加套餐项目.cbo套餐类型.AddItem Trim(rst("组合项目类型名称") & "") rst.MoveNext Loop End If Proc_Exit: Call RefreshMdiStb("就绪"): Exit Function 加载添加套餐项目_error: 加载添加套餐项目 = 1 Call RefreshMdiStb("就绪"): Call gObjError.RecordError("cls基础数据_添加套餐项目", "Form_Load", err.Number, err.Description) End Function Public Function 加载套餐类型() As Long On Error GoTo 加载套餐类型_error Dim rst As New ADODB.Recordset, itemx As ListItem Dim strsql As String, str序号 As Long '增加全部类型 ，让用户查看全部项目 frm基础数据_添加套餐项目.cbo套餐类型.Clear frm基础数据_添加套餐项目.cbo套餐类型.AddItem "" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "全部" '增加套餐类型 strsql = "select * from 基础数据_组合项目类型表 order by 顺序" & vbCrLf If gObjDatabase.GetOneRst(strsql, rst) <> 0 Then GoTo Proc_Exit If Not rst.EOF Then Do Until rst.EOF frm基础数据_添加套餐项目.cbo套餐类型.AddItem Trim(rst("组合项目类型名称") & "") rst.MoveNext Loop End If Proc_Exit: Call RefreshMdiStb("就绪"): Exit Function 加载套餐类型_error: 加载套餐类型 = 1 Call RefreshMdiStb("就绪"): Call gObjError.RecordError("cls基础数据_添加套餐项目", "加载组合项目类型", err.Number, err.Description) End Function Public Function 加载列表头() As Long On Error GoTo 加载列表头_error frm基础数据_添加套餐项目.lv项目.ColumnHeaders.ADD , "序号", "序号", 5000 frm基础数据_添加套餐项目.lv项目.ColumnHeaders.ADD , "组合项目名称", "组合项目名称", 8000 Proc_Exit: Call RefreshMdiStb("就绪"): Exit Function 加载列表头_error: 加载列表头 = -1 Call RefreshMdiStb("就绪"): Call gObjError.RecordError("cls基础数据_添加套餐项目", "加载列表头", err.Number, err.Description) End Function Public Function 加载lv项目信息() As Long On Error GoTo 加载lv项目信息_error End Function Public Function 判断用户是否可以加载选中项目() As Long On Error GoTo 判断用户是否可以加载选中项目_error '用户没有选择项目 If frm基础数据_添加套餐项目.lv项目.SelectedItem Is Nothing Then 判断用户是否可以加载选中项目 = -1 GoTo Proc_Exit End If Proc_Exit: Call RefreshMdiStb("就绪"): Exit Function 判断用户是否可以加载选中项目_error: 判断用户是否可以加载选中项目 = -1 Call RefreshMdiStb("就绪"): Call gObjError.RecordError("cls基础数据_组合项目维护", "判断用户是否可以加载选中项目", err.Number, err.Description) End Function Public Function 加载组合项目基本信息() As Long On Error GoTo 加载组合项目基本信息_error Dim rst As New ADODB.Recordset, itemx As ListItem Dim strsql As String, lngI As Long Dim str组合项目序号 As String lngI = 1 If frm基础数据_添加套餐项目.lv项目.ListItems.Count = 0 Then GoTo Proc_Exit '加载项目基本信息 str组合项目序号 = gObjControl.GetLvSelectedText(frm基础数据_添加套餐项目.lv项目, "组合项目序号") '初始化项目基本信息 'If 清空组合项目基本信息 <> 0 Then GoTo 加载组合项目基本信息_error strsql = "select * from 基础数据_组合项目表 where 组合项目序号 ='" & str组合项目序号 & "'" & vbCrLf ' ' If gObjDatabase.GetOneRst(strsql, rst) <> 0 Then GoTo Proc_Exit ' If Not rst.EOF Then ' Do Until rst.EOF ' frm基础数据_添加套餐项目.txt项目序号.Text = Trim(rst("组合项目序号") & "") ' frm基础数据_添加套餐项目.lv项目列表.Text = Trim(rst("组合项目名称") & "") ' rst.MoveNext ' Loop ' End If Proc_Exit: Call RefreshMdiStb("就绪"): Exit Function 加载组合项目基本信息_error: 加载组合项目基本信息 = -1 Call RefreshMdiStb("就绪"): Call gObjError.RecordError("cls基础数据_添加套餐项目", "加载组合项目基本信息", err.Number, err.Description) End Function Public Function 加载下拉控件() As Long On Error GoTo 加载下拉控件_error ' frm基础数据_添加套餐项目.stb.item(0).Selected = True frm基础数据_添加套餐项目.cbo套餐类型.AddItem " " frm基础数据_添加套餐项目.cbo套餐类型.AddItem "全部" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "身高体重" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "电子血压" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "普通诊室" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "检验科室" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "超声诊室" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "影像科室" frm基础数据_添加套餐项目.cbo套餐类型.AddItem "特检科室" Proc_Exit: Call RefreshMdiStb("就绪"): Exit Function 加载下拉控件_error: 加载下拉控件 = -1 Call RefreshMdiStb("就绪"): Call gObjError.RecordError("cls基础数据_添加套餐项目", "加载下拉控件", err.Number, err.Description) End Function > ``` ```
• vb.net 一个数组怎么添加新数据

  4年前
  回答 2 已采纳 比如一个数组 Dim A() As Integer ={10,85,36,5,6} 把25插入到其中，前面，后面或者中间部分，怎么做呢
• 【vb编程】怎样把数据保存到excel中

  7年前
  回答 1 已采纳 小弟不会vb编程，特求大神给个demo，在此感谢！ 下面是我在网上找到的例子，运行报错：   Dim ExcelApp As Object Private Sub Form_Unload(Cancel As Integer) Dim X As Integer X = MsgBox("是否保存更改？", vbYesNoCancel + vbExclamation, "VB 保存数据到中 Excel") If X = 6 Then '单击“是”则保存 Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Workbooks.Add With ExcelApp.ActiveSheet .Range("A1:J1") = Array(Text1(0).Text, Text1(1).Text, Text1(2).Text, Text1(3).Text, Text1(4).Text, Text1(5).Text, Text1(6).Text, Text1(7).Text, Text1(8).Text, Text1(9).Text) .Range("A2:J2") = Array(Text1(10).Text, Text1(11).Text, Text1(12).Text, Text1(13).Text, Text1(14).Text, Text1(15).Text, Text1(16).Text, Text1(17).Text, Text1(18).Text, Text1(19).Text) MyFileName = ExcelApp.GetSaveAsFilename(fileFilter:="Excel Files (*.xls), *.xls") .SaveAs MyFileName End With ExcelApp.Quit ElseIf X = 7 Then '单击“否”则不保存 Cancel = 0 Else '单击“取消”则不退出程序 Cancel = 1 End If End Sub  
• vb未找到方法或数据成员_答疑 | VB首行的Option Explicit有何作用？

  5月前
  weixin_40001967的博客 当我们用VB软件来写程序时，每次进入代码窗口都会自动出现Option Explicit这一句代码，这句代码的作用是是强制声明变量，也就是当我们在程序代码中，用到了没有定义的变量，程序就会自动给出警告提示。问题来了：这...
• VB程序非正常关闭后—编译错误，未找到方法或数据成员

  4年前
  Jing-Kathy的博客 敲机房收费管理系统时，遇到一个很奇葩的问题。 ...未找到方法或数据成员 有的显示：已经在运行 VB工程右击：第一行原来是“打开” 变化是，变成了两行，一行“make”，另一行“run” ...
• vb未找到方法或数据成员_VB多重窗体程序如何实现？

  5月前
  weixin_39846898的博客 VB学习有难题，关注跟我学VB。共同交流学习！学习只要开始，就永远不晚！VB多重窗体程序 在我们的 VB编程中允许一个工程有多个窗体，每个窗体分别有自己的代码和不同的操作，从而实现复杂的程序功能。下图是VB做的一...
• VB中 “编译错误：未找到方法或数据成员””和“实时错误‘424‘”

  3年前
  肥宅快乐鼠的博客 错误一：“编译错误：未找到方法或数据成员” 错误：不知道为什么昨天设置的命名是Flexgrid控件，今天再打开，变成了PictureBox控件，所以一运行弹出了此错误框，并定义在rows=2。 解决方案：把PictureBox...
• vb未找到方法或数据成员_组态王与其它应用程序的动态数据交换（DDE）

  5月前
  weixin_39520353的博客 1.概述“组态王”支持动态数据交换(DDE：Dynamic Data Exchange)，能够和其他支持动态数据交换的应用程序方便地交换数据。通过DDE，工程人员可以利用PC机丰富的软件资源来扩充“组态王”的功能，比如用电子表格程序...
• 未找到数据成员和方法-机房问题4

  7年前
  李爽11的博客 的时候总是提示这样的错误： 于是上网查，有人说：  fLogin 是窗体，当然没有 fLogin.OK 的方法了，除非你自定义了此方法。  做一个名称为 FrmLogin 的登陆窗体，设置用户名、密码等，窗体定义一个...
• vb未找到方法或数据成员_新起点！奉上VB与数据库连接常用功能源代码，快来get！...

  5月前
  weixin_39736913的博客 ★新朋友点上方跟我学VB关注本微信平台好消息！VB全套资料优惠发放！大家好，时间很宝贵，跟我学VB微信平台特在今天推出VB与数据库连接介绍并且奉上数据库增删改查常用功能的源代码。旨在帮助大家了解、认识以及运用...
• 学生系统问题集锦 “3021” “424” “未找到方法或数据成员” "子程序或函数未定义“

  3年前
  ～Phoenix的博客 三、“未找到方法或数据成员”    Private Sub Form_Load()里有一个方法或者数据成员没有定义。  检查Form_Load()里的所有控件名称是不是有拼写错误，大小写也不能错。  一般会自动纠正但也有例外的 ...
• access中引用adodb提示方法和数据成员未找到的解决办法。

  7年前
  yyb63915的博客 执行到rs.open时提示：方法和数据成员未找到。在网上找了半天所有的引用都有了。还是提示那个错误！郁闷中想起早先编的一些程序。翻出来看了看有了重大发现：原来在编译器中虽然引用了相关的类。但是程序执行时与...
• 【VB】编译错误

  3年前
  Coder_贾俊浩的博客 原因：未引用控件或代码错误 以下三种解决方法： 1）工程——引用——选中"Microsoft ActiveX Data Objects 2.6 Library"——点击“确定” 拓展：ActiveX DataObjects，简称ADO，访问数据库的一个接口，就是用来...