jujun的个人资料 - RAT

jujun jujun

关注数: 2 粉丝数: 6 发帖数: 61 关注贴吧数: 10

批量替换多个表内的同一内容，大神帮忙看看哪里不对 Sub replace_excel() On Error Resume Next Dim my_Doc As String Dim my_File As String With Application.FileDialog(msoFileDialogFolderPicker) .Show .AllowMultiSelect = False my_Doc = .SelectedItems(1) End With my_File = Dir(my_Doc & "\" & "*.xls*") Do While Len(my_File) <> 0 Workbooks.Open (my_Doc & "\" & my_File) Cells.Replace What:="王沛", Replacement:="王佩", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False ActiveWorkbook.Close True my_File = Dir Loop End Sub

sql server 2008 r2的问题有会sql server 2008 r2数据库的同学，有问题咨询一下，可有偿

学编程有懂得编程的同学么，想学，聊聊

求助：文件批量该名,包含子文件夹我有很多个文件夹，每个文件夹里面有很多图片，现在想把每个文件夹内的文件都用数字按顺序命名，即A文件夹里面的文件是1.JPG,2.JPG,3.JPG。B文件夹里面文件是也是1.JPG,2.JPG,3.JPG 我这里有个批处理，但是只能处理当前文件夹下的文件，不能修改子文件夹的 @echo off setlocal enabledelayedexpansion set /a aa=1 for %%1 in (.\*.jpg) do (ren "%%1" !aa!.jpg&set /a aa=!aa!+1) pause

求助:文件批量该名,包含子文件夹我有很多个文件夹，每个文件夹里面有很多图片，现在想把每个文件夹内的文件都用数字按顺序命名，即A文件夹里面的文件是1.JPG,2.JPG,3.JPG。B文件夹里面文件是也是1.JPG,2.JPG,3.JPG 我这里有个批处理，但是只能处理当前文件夹下的文件，不能修改子文件夹的 @echo off setlocal enabledelayedexpansion set /a aa=1 for %%1 in (.\*.jpg) do (ren "%%1" !aa!.jpg&set /a aa=!aa!+1) pause

文件批量该名,包含子文件夹我有很多个文件夹，每个文件夹里面有很多图片，现在想把每个文件夹内的文件都用数字按顺序命名，即A文件夹里面的文件是1.JPG,2.JPG,3.JPG。B文件夹里面文件是也是1.JPG,2.JPG,3.JPG 我这里有个批处理，但是只能处理当前文件夹下的文件，不能修改子文件夹的 @echo off setlocal enabledelayedexpansion set /a aa=1 for %%1 in (.\*.jpg) do (ren "%%1" !aa!.jpg&set /a aa=!aa!+1) pause

T60安装WIN8.1，声卡驱动上了，但是没有声音 T60安装WIN8.1，声卡驱动上了，但是没有声音，运行倒是很流畅的。怎么才能出声音呢？

新手求助求高手帮忙 vb6 access数据库单击按钮command1的时候，把select*from xiangmu where 甲方 = "&val(text1.text)&"的查询结果显示在mshflexgrid中，代码该怎么写，求高手帮忙

初学VB，菜鸟求助，VB6 ACCESS查询结果显示在MSHFlexgrid中刚学VB，这个地方实在整不明白了，帮忙看看我这代码该怎么写啊，谢谢了，打叉的地方是我不会的，什么地方不对，帮忙指正，谢谢。 Private Sub Command5_Click() If Text2.Text = "" Then MsgBox ("请在甲方处输入您想要查询的合同，例如：建三江") Else Dim sc As String sc = MsgBox("确实要查询此测区的合同么？", vbOKCancel, "系统提示") If sc = 1 Then Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str1 As String Dim str2 As String Dim str3 As String str1 = "provider = microsoft.jet.oledb.4.0;" str2 = "data source = c:\合同管理\contract.mdb;" str3 = "jet oledb:database password = " conn.Open str1 & str2 & str3 strsql = "select * from xiangmu where 甲方 = " & Val(Text2.Text) & "" rs.Open strsql, conn, 3, 3 If rs!甲方 = Val(Text2.Text) Then XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXX Else MsgBox ("不存在此记录") Text2.Text = "" XXXXXXXXXXX XXXXXXXXXXXXXXXXXX Exit Sub End If End If End If End Sub

VB6 ACCESS查询结果显示在MSHFlexgrid中刚学VB，这个地方实在整不明白了，帮忙看看我这代码该怎么写啊，谢谢了，打叉的地方是我不会的 Private Sub Command5_Click() If Text2.Text = "" Then MsgBox ("请在甲方处输入您想要查询的合同，例如：建三江") Else Dim sc As String sc = MsgBox("确实要查询此测区的合同么？", vbOKCancel, "系统提示") If sc = 1 Then Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim str1 As String Dim str2 As String Dim str3 As String str1 = "provider = microsoft.jet.oledb.4.0;" str2 = "data source = c:\合同管理\contract.mdb;" str3 = "jet oledb:database password = " conn.Open str1 & str2 & str3 strsql = "select * from xiangmu where 甲方 = " & Val(Text2.Text) & "" rs.Open strsql, conn, 3, 3 If rs!甲方 = Val(Text2.Text) Then XXXXXXXXXXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXX Else MsgBox ("不存在此记录") Text2.Text = "" XXXXXXXXXXX XXXXXXXXXXXXXXXXXX Exit Sub End If End If End If End Sub

WIN7局域网访问问题，帮帮忙啊局域网A\B两台电脑，A电脑上两个用户，A1具有管理员权限，A2普通权限，平时我在B电脑上用A2这个用户登录，并且设置了记住密码，现在我想在B机器上用A1这个用户登录，怎么办呢？

不想回家马上十一放假了，不愿意回家，老婆说去她家，我也不想去，她已经买了自己的票了，她挺理解我，不过感觉她还是不开心，怎么办呢？

求助！！！！！！！！！！！！！！！！！！！！！有谁知道这个是一个什么进程？ServiceP.exe在网上都查不到的

关于单位改制之后的公务员编制问题，请教大家所在单位是一个事业单位，2005年通过国家公务员考试进入，试用期是一年但是最近说单位要改制，变成国家控股，想问问这样对我本人有何影响啊会不会取消我的公务员编制呢？

1 下一页