在TEXTBOX1的CHANGE事件中写入 TEXTBOX2=TEXTBOX1 会调用数据库中的值是什么情况下调用没说明 是TEXTBOX2一改变就调用，还是TEXTBOX2中的数据符合某些东西的时候调用 还是只要在TEXTBOX1中输入内容就调用，你没写前提！
z:\test.txt", OpenMode.Input) Do While Not EOF(1) Input(1, a) b = b + 1 If b = 1 Then TextBox1.Text = a ElseIf b = 2 Then TextBox2.Text = a End If Loop End Sub
cmd.CommandText ="select top 1 字段1 from 表1" '这里就是个SQL语句 conn.open textbox1.text=cmd.ExecuteScalar()'如果你要读取多条数据，那么还需要个DataSet,DataAdapter,cmd.CommandText="select * from 表1"Dim da As new OleDbDataAdapter da.SelectCommand = cmd Dim ds As New DataSet...
'引用：'添加对该对象的引用 工程菜单-->引用，找到 Microsoft Scripting Runtime '引用microsoft Excel 14.0 object library 'Dim elApp As Excel.Application Dim elBooks As Excel.Workbook Dim ekSheet As Excel.Worksheet Dim TblMap_Card '创建一个变量 Private Sub Command1_Click()Dim i ...
如果你的Text1是修改过的Textbox1的Name，那么，代码应该是 Workbooks.open filename:=sheet1.Text1.text Text1前面要指定Sheet名
VB的TextBox控件输出多行文本方法：把 MultiLine 属性设为 True，可以使 TextBox 在运行时接受或显示多行文本。只要没有水平方向 ScrollBar，多行 TextBox 中的文本会自动按字换行。ScrollBars 属性的缺省值被设置为 0（None）。自动按字换行省去用户在行尾插入换行符的麻烦。当一行文本已超过所能...
显示出来,在哪里显示啊?控件:Private Sub Text1_Change()Adodc1.RecordSource = "select * from 表 where 规格 like '" & Text1 & "' & '%'"Adodc1.Refresh text2=adodc1.recordset.Fields("字段名1") & adodc1.recordset.Fields("字段名2") '要显示多少写多少的字段名,End Sub 不需要...
呵呵，全部给你得了 1.text1.text的内容输出到txt文档中 Open "路径+文件名.txt"For Output As 1 Print 1,Text1.Text Close 1 2.把txt文档输入到text1.text中：Open "路径+文件名.txt"For Input As 1 Do Until EOF(1)Line Input 1,nextline '逐行读入 Text1.Text = Text1.Text + nex...
bArr(0))Call RtlMoveMemory(bArr2(0), bArr(0), length)Line = StrConv(bArr2, vbUnicode)Else Line = ""End If End Sub 如上的函数可以读出文本框中每行的值，调用方法如下，其中0为第一行 Call TB_GetLine(Text1.hWnd, 0, S)Text2.Text = S 接下来你自己知道怎么做了吧。
将文档的内容放到变量s中后 s_g=s do while 1 i=instr(s_g,"girlnumber="+chr(34))if len(s_g)<=0 or i=0 then exit do endif s_g=mid(s_g,i+12)i=instr(s_g,chr(34))girl=girl+val(left(s_g,i-1))s_g=mid(s_g,i+1)loop s_g=s do while 1 i=instr(s_g,...